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ABSTRACT 


This  thesis  is  an  attempt  to  prove  the  value  of  the 
Control  System  Design  Environment  by  designing  a  shipboard— 
or  ground-based  data  link  receiver  to  communicate  with  the 
data  link  installed  in  the  Coast  Guard  HH-6SA  helicopter. 
The  Control  System  Design  Environment  was  intended  to  allow 
a  designer  to  use  a  highlevel  language  to  describe  the 
required  inputs  and  outputs  o-f  a  system.  This  high-level 
language,  the  Control  System  Design  Language  <CSDL)  is 
translated  into  a  list  o-f  primitives  by  a  Pascal  program, 
CSDL.PAS.  The  primitive  list  is  then  compiled  into  assembly 
language  by  a  FORTRAN  program,  NEWCSDL. FOR.  The  -final 
output  includes  the  hardware  and  software  lists  to  build  a 
controller  that  meets  the  designer's  specifications.  This 
particular  project  includes  a  project  design  much  more 
ambitious  than  any  previously  attempted  in  the  Control 
System  Design  Environment. 
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I.  INTRODUCTION 


The  design  of  electonic  equipment,  including  micro¬ 
processor — controlled  equipment,  has  traditionally  been  a 
time  and  money  consuming  proposition.  The  design  must  be 
worked  out  manually  and  paper — tested,  changes  and 
improvements  made,  and  more  paper-testing  performed.  When 
it  appears  that  the  design  is  feasible,  one  or  more 
prototypes  are  built  and  tested.  Building  prototypes  is 
expensive  because  they  are  labor-intensive  and  fail  to 
benefit  from  economies  of  scale.  The  use  of  computer  aided 
design  (CAD)  has  become  more  prevalent  in  many  design 
applications  in  recent  years  because  of  these  reasons.  One 
such  design  aid  is  the  Control  System  Design  Environment 
proposed  by  Matelan  [Ref.  11  and  implemented  by  Ross  CRef. 
23. 

The  Control  System  Design  Environment  makes  use  of  the 
Control  System  Design  Language  (CSDL).  This  high-level 
language  provides  the  user  with  a  method  to  describe  the 
inputs  and  outputs  of  a  controller  and  specify  time 
constraints  for  completion  of  the  required  tasks.  A 
translator  program  takes  the  CSDL  problem  statement  written 
by  the  user,  tests  the  syntax,  and  then  generates  symbol  and 


variable  tables. 


It  also  translates  the  CSDL  statements 


into  a  format  called  the  primitives  list  with  the  associated 
parameters  and  selection  criteria.  The  primitives  are  used 
as  macro  calls  to  the  realization  libraries.  These 
libraries  are  based  on  families  of  microprocessors.  The 
original  library  built  by  Ross  consisted  solely  of  the  Intel 
8080  family.  Recent  additions  to  the  realization  libraries 
include  the  Zilog  Z80  by  Smith  [Ref.  31  and  the  Intel  8086 
by  Cetel  [Ref.  41. 

A  family  of  microprocessors  is  chosen  for  the 
implementation  by  the  designer  and  noted  in  the  CSOL 
description.  A  solution  is  attempted  and  if  it  fails, 
another  family  is  chosen  and  another  solution  is  tried.  If 
all  families  fail,  the  failure  is  reported  to  the  user. 
When  there  is  a  success,  software  is  generated  to  support 
the  hardware,  and  monitor  code  is  output  for  the  overall 
control  of  the  system..  The  automation  of  these  functions 
makes  it  possible  to  rapidly  and  inexpensively  design, 
build,  and  test  prototypes.  The  ability  to  describe  the 
functional  specifications  of  a  control  process  in  a 
high-level  language  and  let  the  CSDE  provide  output  in  form 
of  hardware  and  software  design  can  greatly  simplify  the 
work  involved  and  thus  lower  the  cost  of  producing  working 
prototypes. 

The  application  of  the  Control  System  Design 
Environment  (CSDE)  to  the  design  of  hardware  and  software 
for  controller  applications  has  been  explored  by  a  number  of 


«  V*' 


researchers  since  Ross  first  designed  C5DL.  Some  of  those 
who  have  contributed  to  CSDE  include  Carson,  Cetel , 
Heilstedt,  Pollock,  Riley,  Sherlock,  Smith,  Walden,  and 
Woffinden.  Their  accomplishments  and  contributions  are  all 
recorded  in  their  respective  theses.  [Refs. 5-133 

The  goal  of  this  thesis  is  to  attempt  a  validation  of 
the  Control  System  Design  Environment.  This  will  be 
accomplished  by  using  CSDE  to  design  a  microprocessor — based 
data  link  receiver  for  the  data  link  to  be  installed  in  the 
Coast  Guard  HH-65A  helicopter.  Since  CSDE  was  designed  to 
produce  process  controllers,  the  production  of  a  data  link 
receiver  will  demonstrate  the  flexibility  of  the  Control 
System  Design  Environment  to  handle  additional  and  more 
complex  types  of  problem  descriptions  beyond  those 
considered  in  the  original  design  of  CSDE. 

This  project  is  a  departure  both  in  size  and  scope 
from  any  previous  attempt  at  using  the  CSDE  system.  Several 
researchers  have  used  CSDE  to  design  controllers.  Pollock 
used  CSDE  to  design  a  fuel  injection  system  for  an 
automobile  in  1961  CRef.  143.  Heilstedt  designed  digital 
filters  using  CSDE  in  1983  [Ref  153.  The  latest  CSDE  design 
is  an  automatic  start  sequencer  for  a  jet  engine  performed 
by  Riley  in  1984  CRef.  163.  The  design  of  a  micro¬ 
processor — based  data  link  receiver  is  a  much  more  ambitious 
application  than  any  of  these  previous  works.  It  requires 


the  movement  of  strings  of  data  throughout  the  system  while 


watching  for  keyboard  input  from  an  operator.  The  goal  of 
the  project  is  concerned  with  the  use  and  abilities  of  the 
CSOE  and  not  with  producing  a  working  prototype  of  a  unit 
that  will  function  according  to  Coast  Guard  requirements. 
The  data  link  receiver  will  be  a  subset  of  and  not  a 
complete  implementation  of  the  Coast  Guard  requirements  and 
specifications  as  outlined  in  the  next  chapter. 


DATA  LINK  RECEIVER  SPECIFICATIONS 


Development  of  systems,  including  computer  systems, 
can  be  costly  due  to  the  time  and  effort  required  to  design, 
build,  and  test  prototypes.  The  use  of  the  Control  System 
Design  Environment  can  dramatically  reduce  the  time  and 
effort  involved  in  designing  a  mi croprocessor  system  and  in 
producing  the  associated  software.  The  cost  of  a  system  is 
spread  over  the  number  of  items  produced,  and  in  general, 
prototypes  are  produced  in  small,  and  thus  expensive, 
quantities.  The  automation  of  the  design  of  hardware  and 
software  promises  to  greatly  reduce  the  cost  of  the  design 
and  prototyping  portions  of  new  systems  development, 
especially  those  systems  that  will  be  produced  in  small 
numbers. 

An  example  of  a  system  currently  under  development  was 
chosen  for  an  implementation  under  CSDE  for  this  thesis. 
The  U.S.  Coast  Guard  is  presently  acquiring  a  new  heli¬ 
copter,  the  HH— 65A.  One  of  the  features  of  the  aircraft 
avionics  suite  is  a  data  link  transceiver  which  will 
automatical ly  send  and  receive  flight  information  data. 
Unfortunately,  there  is  no  compatable  transceiver  available 
for  use  aboard  Coast  Guard  cutters  or  at  air  stations.  The 


potential  contributions  to  a  wide  range  of  Coast  Guard 


r  s 


relieved  of  one  more  duty  that  distracts  from  the  mission 
accompl i shment . 

From  the  pilots’  point  of  view,  a  data  link  capability 
means  that  their  attention  need  not  be  diverted  from  the 
normal  scan  of  aircraft  instruments,  the  airspace  around  the 
helicopter,  and  the  water  or  ground  over  which  they  are 
searching.  The  onboard  computer  system  does  many  of  the 
navigation  functions  automatically  and,  with  the  install¬ 
ation  of  data  link  capability,  can  make  the  required 
operations  reports  to  the  controlling  Coast  Guard  unit.  On 
a  typical  mission  the  aircrew  must  monitor  the  UHF  and/or  HF 
radios  for  communications  with  their  controlling  unit,  the 
VHF-AM  radio  for  normal  communications  with  FAA  facilities 
and  other  aircraft,  and  the  VHF-FM  radio  for  communications 
with  vessels.  Thus,  the  pilots  must  monitor  up  to  four 
different  radios  simultaneously  while  communicating  with 
other  members  of  the  aircrew  over  the  internal 
communications  system  (ICS).  These  communications 
requirements  tax  the  concentration  of  the  aircrew  and 
contributes  to  their  fatigue.  The  data  link  can  relieve  the 
crew  of  one  duty  while  enhancing  the  security  of  the  flight 
operation. 

The  Coast  Guard  Office  of  Operations  sent  a  memorandum 
to  the  Office  of  Research  and  Development  in  June  1983 
requesting  development  of  a  shipboard  version  of  the  data 
link.  The  performance  standards  and  specifications  listed  in 
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that  request  have  been  used  as  a  basis  -for  the  functional 


specifications  for  the  CSDE  implementation  of  this  thesis 
proj ect. 

The  performance  standards  and  criteria  outlined  in  the 
request  for  support  specified  a  "shipboard  version  of  the 
data  link  built  into  the  HH-65A  helicopter".  This  language 
does  not  reflect  the  possible  use  of  the  data  link  at  a 
Coast  Guard  Air  Station.  This  thesis  will  assume  that  the 
design  of  shipboard  equipeent  will  be  more  than  capable  of 
working  ashore  as  well  as  at  sea. 

It  would  be  passible  to  use  a  commercial ly  available 
mi crocomputer  for  this  project.  Writing  the  assembly 
language  software  to  drive  that  system  would  not  be  too 
difficult.  This  approach,  however,  would  provide  a  software 
engineering  problem  without  adding  anything  new  to  the 
knowledge  base  of  computer — aided  design.  It  is  far  more 
enlightening  to  attempt  the  project  through  the  use  of  CSDE 
in  order  to  reduce  design  costs  for  new  systems. 

The  goal  of  this  project  is  concerned  with  the  use  and 
abilities  of  the  CSDE  and  not  with  producing  a  working 
prototype  of  a  data  link  receiver  unit  that  will  function 
according  to  Coast  Guard  requirements.  The  data  link 
receiver  designed  using  CSDE  will  be  a  subset  of  and  not  a 
complete  implementation  of  the  specifications  listed  by  the 
Office  of  Operations.  Because  of  this,  there  will  be  no 


effort  to  fully  meet  the  performance  requirements  specified 
in  the  request  for  support. 


The  following  is  a  listing  of  the  requirements  and 
performance  standards  as  stated  in  the  request  and  describes 
how  each  will  be  addressed  in  this  project. 

The  data  link  receiver  system: 

1.  Must  operate  on  all  frequencies  (selectable) 
from  HF  to  UHF  (30.000-399.975  MHz). 

Comment:  This  is  outside  the  scope  of  the 

thesis  work  and  will  be  assumed  to  have  been  met. 

The  point  of  this  thesis  is  not  the  solution  of 
interfacing  problems  with  the  radio  transmi tters. 

2.  Must  be  compatible  with  the  AN/PRC-182 
transceiver  on  the  HH-65A  helicopter. 

Comment:  This  is  outside  the  scope  of  the 
thesis  work  for  the  same  reasons  as  cited  in  the 
paragraph  above  and  will  be  assumed  to  have  been 
met. 


3.  Must  be  compatible  with  data  link  system 
presently  installed  in  the  HH-65A.  This  system, 
manufactured  by  Collins,  operates  at  a  300  baud  rate 
with  data  burst. 
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Comment:  This  is  central  to  the  design  but 
little  information  was  available  -for  use  in  this 
thesis.  The  details  will  be  addressed  later  in  this 
section. 

4.  Must  be  of  the  smallest  size  and  weight 
practicable  for  installation  in  CIC/CSC  on  all 
flight-deck  equipped  cutters,  up  to  200  feet  from 
transceiver  and  antenna.  A  remote  readout  for  the 
pilothouse  is  extremely  desirable. 

Comment:  The  small  size  and  weight  should 
follow  from  an  efficient  design.  The  installation 
aboard  cutters  will  be  assumed  as  will  the  solution 
regarding  the  distance  between  transceiver  and 
antenna.  The  remote  readout  requirement  will  not  be 
addressed.  It  is  expected  that  the  addition  of  a 
remote  readout  will  be  relatively  simple  when  the 
system  design  is  complete. 

5.  Must  be  capable  of  automatically  tracking  and 
polling  at  least  three  aircraft  in  sequence  at 
selective  time  intervals  from  5-30  minutes,  and  must 
be  capable  of  manually  polling  an  aircraft  data 
link. 

Comment:  These  requirements  will  be  met  in 


6.  Must  be  capable  of  providing  an  automatic 
response  to  an  aircraft  interrogation.  This 
response  Mould  give  the  cutter’s  position  by  the 
best  electronic  navigational  aids  available  and 
Mould  provide  -for  data  verification,  as  in  the 
HH-&5A  system. 

Comment:  The  acknoMl edgement  of  a  message 
receipt  and  the  reply  Mith  a  position  Mill  be  met. 
Provisions  for  manual  input  of  navigation 
information  for  use  Mith  a  stationary  receiving  unit 
(an  air  station)  Mill  be  included.  This  Mill  also 
mean  that  manual  input  Mill  be  possible  aboard  a 
cutter  if  the  electronic  navigational  aids  become 
unusable.  The  data  verification  Mill  not  be 
included  for  reasons  stated  later. 

Attempts  to  acquire  the  actual  protocols  for  the 
communications  and  the  technical  specifications  for  the  data 
link  equipment  installed  in  the  HH-65A  helicopters  failed. 
Coast  Guard  sources  could  not  provide  the  necessary  info» — 
mation.  The  Collins  Government  Avionics  Division  of 
RockMell  International  Corporation,  makers  of  the  HH-65A 
data  link,  did  not  respond  to  requests  for  the  information. 
The  protocols,  message  formats,  and  other  specifications 
used  in  this  thesis  are  estimates  of  what  and  how  the  data 


link  systM  should  work  and  not  the  result  o-f  any 
propproprietary  information. 

The  data  link  receiver  is  configured  as  shown  in 
Figure  1.  There  are  four  inputs:  from  the  radio  interface 
unit,  the  electronic  navigation  devices  interface  unit,  the 
clock,  and  the  keyboard.  There  are  four  outputs:  to  the 
radio  interface  unit,  the  video  display  unit,  the  printer, 
and  the  clock.  All  inputs  to  and  outputs  from  the  system  are 
digital  signals  using  ASCII  code. 

There  is  a  pattern  of  levels  of  abstraction  in  this 
view  of  the  project.  At  the  center  is  the  data  link 
receiver  processor  designed  for  this  thesis.  This  processor 
is  responsible  for  the  proper  routing  of  messages  to  and 
froe  memory,  calling  menus  from  ROM  and  sending  them  to  the 
video  display  terminal,  updating  positions,  and  performing 
tasks  in  response  to  input  from  the  keyboard.  It  is  assumed 
that  there  is  a  radio  interface  unit  that  receives  and 
processes  all  signals.  If  a  message  is  addressed  for  this 
particular  Coast  Guard  unit,  then  the  radio  interface  unit 
receives  the  message,  checks  the  correctness  of  the  message, 
and  sets  a  flag  to  tell  the  data  link  receiver  controller 
that  a  message  awaits. 

The  electronic  navigation  devices  are  an  abstraction 
for  the  actual  machines  that  compute  the  receiver  unit’s 
position.  These  devices  may  include  LORAN-C,  OMEGA, 
navigation  satellites,  or  any  other  navigation  instruments 


DATA  LINK  RECEIVER 


Figura  1 


that  may  be  polled  by  the  navigation  interface  unit.  These 
devices  pass  their  position  information  to  the  navigation 
interface  which  sets  a  flag  to  let  the  main  processor  know 
that  a  new  position  has  been  computed.  The  system  operator 
may  override  the  automatic  polling  of  the  interface  unit  by 
the  system  processor  in  the  event  of  a  malfunction  in  the 
navigation  instruments.  In  the  case  of  a  shore  unit,  there 
is  no  need  for  a  navigation  interface.  The  operator  would 
manually  enter  the  position  of  the  air  station  and  set  the 
system  to  prevent  the  interface  being  polled  in  the  case 
where  the  receiving  unit  is  a  shore  unit  and  thus  in  a 
constant  position.  The  same  method  could  be  used  for  a  ship 
at  anchor  when  most  navigation  devices  are  normally  secured. 
It  is  essential  that  the  ship's  position  be  sent  as  often  as 
necessary  to  keep  the  helicopter's  computer  updated. 

The  third  input  comes  from  a  clock.  The  clock  is  used 
for  time-stamping  the  positions  computed  by  the  navigation 
devices.  This  information  is  passed  as  part  of  the  acknow¬ 
ledgement  messages  sent  in  response  to  a  helicopter's 
message  and  also  when  polling  helicopters.  The  radio 
interface  unit  is  assumed  to  have  direct  access  to  the  clock 
to  obtain  the  time.  The  output  to  the  clock  from  the 
processor  is  for  setting  the  date  and  time  and  is  entered  by 
the  operator  through  the  keyboard. 

All  commands  to  the  system  are  entered  using  a 
keyboard.  Menus  are  provided  on  the  video  display  unit  for 


the  operator’s  assistance.  Most  inputs  through  the  keyboard 
consist  of  single  keystrokes  for  the  selection  of  operations 


as  listed  in  the  menu  currently  displayed.  There  are 
several  cases  where  more  than  one  keystroke  is  required. 
When  an  aircraft  is  logged  into  or  out  of  the  system,  the 
clock  is  set,  or  the  position  of  the  receiving  unit  is 
manually  inserted,  the  operator  must  enter  the  appropriate 
number  of  characters. 

The  video  display  unit  may  consist  of  some  sort  of 
smart  terminal  or  it  may  be  an  interface  unit  between  the 
main  data  link  processor  and  the  VDT.  In  either  case,  the 
data  link  receiver’s  processor  need  only  send  certain  codes 
to  the  video  display  port.  These  codes  trigger  the 
appropriate  actions  by  which  a  driver  in  the  video  display 
interface  causes  the  menus  to  be  displayed  on  the  screen. 
Messages  from  the  helicopters  are  displayed  in  a  similar 
manner.  This  is  another  advantage  of  the  levels  of 
abstraction.  The  technology,  archi tecture,  and  implementa¬ 
tion  of  the  device  is  invisible  to  the  data  link  receiver 
processor . 

The  printer  receives  its  commands  and  data  in  a  manner 
similar  to  that  of  the  video  display  terminal.  It  does  not 
receive  as  much  text  as  the  VOT  because  the  menus  are  not 


printed.  It  exists  in  the  system  mainly  to  provide  hard 
copy  output  of  the  message  traffic  during  a  mission.  Should 
the  hard  copy  not  be  required  or  desired,  the  operator  has 


only  to  ttcurt  the  power  switch  of  the  printer.  This  makes 


the  overall  systee  simpler  because  there  is  no  need  to 
include  an  on/of  f  function  for  the  printer  in  the  system. 

This  approach  of  levels  of  abstractions  is  a 
reason ab' a  one  for  several  reasons.  It  would  be  difficult 
for  CSDE  to  design  a  controller  that  would  perform  all  the 
requirements  of  this  controller  and  still  be  able  to  meet 
the  required  time  constraints  for  each  task.  The  overall 
system  must  monitor  the  airwaves,  receive  a  message,  check 
it  for  validity,  and  store  it  properly  not  to  mention  all 
the  other  functions  required  to  drive  the  video  display 
unit,  monitor  the  keyboard  for  input,  and  other  such  tasks. 

One  criticism  of  CSDE  has  been  that  there  is  no  way  to 
force  a  design  with  two  CPUs  CRef.173.  CSDE  will  design  a 
system  with  two  processors  when  one  cannot  perform  all  the 
functions  set  forth  by  the  designer  within  the  required  time 
constraints.  Nor  does  CSDE  presently  allow  for  more  than 
two  CPUs.  There  are,  however,  ways  around  these  limit¬ 
ations.  The  central  part  of  the  receiver  is  designed  with 
the  assumption  of  several  "smart"  interfaces.  These  other 
interface  units  may  also  be  designed  using  CSDE  as  long  as 
the  user  is  careful  to  specify  compatible  links  between  the 
units.  The  result  is  a  number  of  processors  integrated  into 
one  system  much  as  an  operating  system  or  a  communications 
network  may  be  viewed  as  consisting  of  layers. 


The  radio  inter-face  Mill  receive  messages  sent  to  the 
particular  receiving  unit.  The  message  Mill  be  tested  for 
completeness  and  correctness.  If  the  message  passes  this 
test,  it  is  held  in  a  buffer  and  a  status  flag  set.  The 
processor  checks  the  status  bit  Mhen  it  polls  the  radio 
receiver  and  if  it  is  set,  it  reads  the  message  into  memory 
in  a  serial  fashion  and  passes  it  to  the  video  display  unit 
and  the  printer. 

The  radios,  navigation  devices,  and  the  keyboard  are 
polled  according  to  the  time  constraints  in  the  CSDL 
contingency  list.  The  number  of  polls  of  a  device  per  time 
period  vary  Mith  the  immediacy  of  the  input.  For  instance, 
the  keyboard  Mill  be  polled  more  often  than  the  navigation 
device.  The  system  must  respond  to  keyboard  inputs  fast  or 
the  operator  may  become  frustrated  or  think  the  system  is 
locked  up.  The  position  of  the  unit  doesn’t  change  at  a 
fast  rate  so  the  position  need  only  be  updated  every  minute 
or  so. 

The  system  Mill  handle  at  least  three  helicopters 
simultaneously.  A  maximum  of  ten  aircraft  may  be  logged  in 
at  any  given  time.  The  tail  numbers  of  the  helicopters  must 
be  logged  into  the  system  memory  manually  by  the  system 
operator.  The  system  Mill  receive  and  process  messages  from 
an  aircraft  not  logged  in  as  long  as  the  receiving  unit  is 
specifically  addressed  in  the  message.  It  Mill  not, 


however,  poll  any  helicopter  that  is  not  logged  into  the 
system  . 

The  polling  of  aircraft  is  done  either  automatically 
or  manually  as  selected  by  the  operator.  If  the  polling  is 
on  automatic,  the  operator  must  select  a  polling  time  period 
from  1  to  30  minutes  in  duration.  The  normal  reporting 
period  for  a  Coast  Guard  helicopter  is  every  15  minutes. 
The  performance  standards  and  criteria  for  the  system 
specified  periods  between  five  and  thiry  minutes.  A  one 
minute  interval  was  added  for  closer  monitoring  of  a 
helicopter  during  an  in-flight  emergency  or  a  critical 
period  during  a  search  and  rescue  case  or  law  enforcement 
action. 

Messages  from  the  helicopters  are  fixed  in  format. 
The  messages  are  received  and  held  in  a  buffer  by  the  radio 
interface.  While  the  message  is  read  into  memory,  it  is 
printed  on  the  video  display  terminal  and  on  the  printer. 
Messages  are  acknowledged  by  the  radio  interface  by  sending 
the  position  of  the  receiving  unit  and  the  time  the  position 
was  calculated  back  to  the  helicopter.  The  position  is 
read  from  the  navigation  interface  by  the  processor  and 
stored  in  memory.  It  is  called  from  memory  when  needed  and 
passed  serially  to  the  radio  interface. 

A  garbled  message  from  an  aircraft  is  not 
acknowledged.  When  a  message  is  not  acknowledged,  the 
helicopter’s  data  link  processor  will  resend  the  message 


after  waiting  a  random  period  o-f  time.  The  message  will  be 
sent  again  and  again  with  random  wait  times  between 
transmissions  until  acknowledged.  After  being  sent  a 
certain  number  of  times  without  acknowledgement,  the  pilots 
are  notified  by  a  message  printed  on  their  VDTs. 

If  two  or  more  helicopters  send  messages  simul¬ 
taneously,  none  will  be  acknowledged.  This  contention  is 
not  serious  since  the  helicopters  will  resend  their  messages 
after  waiting  a  random  period.  The  messages  are  short  (less 
than  64  bytes  sent  at  300  baud)  and  most  cutters  operate 
with  only  one  helicopter  at  a  time.  An  exception  are  the 
five  polar  icebreakers  that  normally  carry  two  helicopters. 
Operations  from  air  stations  present  the  highest  probability 
of  contention  since  they  might  have  two  or  more  helicopters 
airborne  on  missions  at  the  same  time.  The  short  duration 
of  the  messages  coupled  with  the  few  aircraft  generally 
under  the  control  of  one  unit  plus  the  random  timing  for 
resending  a  message  creates  a  situation  where  the  contention 
is  self-correcting. 

The  messages  are  stored  in  the  same  packed  form  as 
they  are  received.  When  the  messages  are  processed  for 
display,  they  are  filled  out  with  the  necessary  descriptive 
enhancements.  The  overlays  or  templates  for  this  purpose 
reside  in  ROM  and  are  inserted  by  the  video  display  unit  as 
the  messages  are  displayed  on  the  VDT.  The  system  has  the 
ability  to  store  the  last  ten  messages  received  in  memory. 


The  protocol  o-f  the  data  link  transmissions  include 
the  preamble,  control  data,  and  information.  The  preamble 
and  control  data  sections  are  used  by  the  radio  interface. 
The  information  section  alone  is  passed  to  the  processor  by 
the  radio  interface.  The  information  section  of  the  message 
follows  the  format  below.  The  number  of  characters  in  each 
field  are  shown  in  parentheses. 

1.  Helicopter  number.  (From) 

4  digits  (1409) 

2.  Ship /ground  station  identifier.  (To) 

4  digits  (7184) 

3.  Date  and  time.  (DTG  for  message  numbering) 

12  characters  (31 1545ZMAY84) 

4.  Position  time.  (This  is  the  time  the  position 
was  calculated.  The  time  may  be  local  or  Zulu, 
depending  on  local  doctrine). 

4  digits  (1543) 

5.  Message  type.  (Message  types  include  normal 
position  reports,  poll  response,  etc.,  or  mission 
type  such  as  fisheries  patrol,  drug  interdiction. 


search  and  rescue,  etc.,  and  can  declare  an  aircraft 
emergency) 

1  character  (3) 

6.  Position.  (Lati tude/Longi tude.  Format  is 
degrees,  minutes,  and  tenths  of  minutes  followed  by 
N  or  S  for  latitude,  E  or  W  for  longitude?  i.e.  , 
Lat  =  ddmmtN,  Long  =  dddmmtW) 

13  characters  (3&429N088321W) 

7.  Ground  speed  (in  knots). 

3  digits  (105) 

8.  Track  (in  degrees  true). 

3  digits  (220) 

9.  Fuel  (in  pounds,  less  reserve). 

4  digits  (1200) 

10.  Wind  direction  (in  degrees  true). 

3  digits  (345) 

11.  Wind  velocity  (in  knots). 

3  digits  (022) 


12.  Altitude  (in  hundreds  o-f  feet). 

2  digits  (12) 

13.  CRC  (cyclic  redundancy  check.  This  is  used  in 
the  radio  interface  unit  but  is  not  read  into  the 
processor’s  memory). 

Each  field  of  the  message  Mill  be  complete,  that  is, 
each  field  will  use  its  full  number  of  characters.  If  the 
information  for  a  particular  field  is  unavailable  for  some 
reason  (the  failure  of  an  instrument  such  as  the 
omnidirectional  airspeed  indicator  or  lack  of  an  updated 
position  because  of  loss  of  LORAN  lock  on)  the  field  Mill  be 
filled  Mith  blanks  (20H).  Fields  that  are  short  Mill  use 
blanks  (20H)  or  zeroes  (00H)  as  appropriate  to  pad  the  data 
field. 

The  format  for  the  examples  given  above  looks  like 

this: 

31  34  30  39  37  31  38  34  33  31  31  35  34  35  5A  4D  41  59  38 

34  31  35  34  33  33  33  36  34  32  39  4E  30  38  38  33  32  31  57 

31  30  35  32  32  30  31  32  30  30  33  34  35  30  32  32  31  32 

These  numbers  are  hexidecimal  representations  of  the  ASCII 

characters  for  the  numbers  and  letters  used  in  the 


Keyboard  inputs  provide  the  operator’s  control  over 
the  system.  The  input  system  is  simplified  to  the  point 
where  single  keystrokes  are  all  that  are  necessary  to  invoke 
different  functions.  When  a  keyboard  input  is  detected,  the 
appropriate  menu  is  placed  on  the  video  display  unit.  The 
operator  uses  single  keystrokes  to  select  and  invoke  the 
different  system  functions.  The  menus  are  contained  in  RON 
and  are  written  to  the  VDT  by  the  video  display  unit 
interface.  The  data  link  receiver  processor  sends  the 
appropriate  code  to  the  video  display  unit  interface  to  cal 1 


the  menus  to  the  screen 


III.  CSDL  DESIGN 


The  Control  System  Design  Environment  Mas  -first 
proposed  by  Matelan  CRef.  181  as  a  method  o-f  simplifying  the 
design  of  process  controllers.  Ross  implemented  the  Control 
System  Design  Language  (CSDL)  as  part  of  this  environment 
CRef.  191.  The  designer  of  a  controller  system  describes 
the  inputs  and  outputs  needed  and  the  required  response 
times  for  different  functions.  Using  this  high-level 
language  makes  the  design  of  the  controller  much  simpler 
than  it  Mould  be  without  the  use  of  computer — aided  design 
tools. 

Some  of  the  syntax  rules  of  CSDL  should  be  mentioned. 
CSDL  programs  must  be  in  upper  case  characters  only.  Most 
statements  end  in  a  semicolon.  The  names  of  functions  end 
with  a  colon  while  task  names  end  with  a  semicolon.  The 
final  end  statement  has  no  punctuation.  Variable  names 
cannot  exceed  ten  characters.  Because  they  are  later 
truncated  to  six  characters,  the  user  should  insure  that  the 
first  six  characters  in  a  name  are  unique.  A  complete 
listing  of  the  formal  syntax  of  CSDL  is  available  in 
Carson’s  thesis  CRef.  201. 

There  are  five  sections  to  CSDL  programs.  The 
sections  are  Identification,  Environment,  Contingency  List, 


and  Procedures.  The  Identification  section  is  simply  the 
name  o-f  the  designer,  the  date,  and  the  project  name.  It  is 
intended  to  identify  the  program  and  does  not  have  any 


effect  when  the  program  is  run.  It  appears  in  this  format: 

IDENTIFICATION 

DESIGNER  :  “SUTTER  FOX" 

DATE  :  "05-31-84“ 

PROJECT  :  “COAST  GUARD  DATA  LINK  RECEIVER" 

The  second  section  is  the  design  criteria.  This  is 
the  portion  of  the  program  where  the  designer  can  choose  the 
primitive  list  and  processor  family  for  CSDL  to  use.  At 
present  there  are  three  realization  libraries.  They  are 
based  on  the  8080,  Z80,  and  8086  microprocessor  families. 
The  format  for  the  design  criteria  section  is: 

DESIGN  CRITERIA 

METRIC  FIRST? 

VOLUMES  l; 

MONITORS  l! 

METRIC  FIRST  refers  to  the  first  realization  that  meets  the 
the  timing  requirements  of  the  system.  A1 ternati vel y,  the 
designer  may  prescribe  cost  or  power  as  the  minimum 
requirements  for  the  system.  VOLUMES  refers  to  the 
realization  libraries  in  the  order  they  are  numbered.  Since 
only  one  volume  was  resident  when  this  project  was 
translated,  the  first  (and  only)  volume  was  designated.  As 
with  the  realization  volume,  there  is  only  one  monitor 
volume  for  the  realization  volume,  and  thus  the  first  (and 
only)  monitor  is  selected. 
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The  design  variables  are  declared  in  the  environment 


section.  The  system  for  the  data  link  receiver  produced 
under  CSOL  requires  a  greater  number  of  variables  than  any 
earlier  attempt  at  a  CSDE  controller  generation  .  This  will 
be  discussed  in  more  detail  later  in  this  chapter.  There 
are  three  types  of  variables  in  a  CSDL  program.  Input 

variables  are  values  that  are  sensed  by  the  controller  from 
the  outside  of  the  controller  processor.  The  output 
variables  send  values  outside  the  controller.  The 
declaration  of  these  variables  includes  the  number  of  lines 

necessary  between  the  controller  and  the  outside  world  and 

the  type  of  technology  desired  for  their  design.  The  third 
type  of  variable  is  the  arithmetic  variable.  Arithmetic 
variables  used  in  computations  within  the  controller 

itself.  The  declarations  made  in  the  environment  section 
are  analogous  to  declarations  made  in  a  block  structured 
language  such  as  Pascal,  Ada,  or  PL/ I.  The  format  of  the 
environment  section  is: 

ENVIRONMENT 

INPUT  :  KEYFLG, 1 , TTL*  KEYCHAR, 8, TTL* 

MANP0S,8,TTL*  END  INPUT* 

OUTPUT  :  MENU, 8, TTL*  POLL, 8, TTL* 

MSGVDT , 8 , TTL  *  MSGRCVD , 1 , TTL  * 

END  OUTPUT* 

ARITHMETIC  :  KEYINMAIN, 8*  MINTAC,8* 

NEXTMSG, 8$  NEXTAC,8*  COUNT, 8* 

END  ARITHMETIC* 
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The  procedures  section  is  much  the  sami 


as  found  in 


block  structured  languages.  This  section  contains  the  high- 
level  descriptions  of  the  arithmetic  and  data  manipulations 
required  to  make  the  system  work.  There  are  two  types  of 
blocks  within  the  procedures  section:  functions  and  tasks. 
The  functions  and  tasks  are  always  coupled  in  what  are 
referred  to  as  conti ngency/task  pairs.  Each  function  is 
evaluated  in  its  turn  as  set  forth  in  the  contingency  list. 
If  it  is  true,  its  associated  task  is  performed.  The 
requirement  that  each  function  have  one  and  only  one  task 
creates  some  problems  with  programming  with  CSDL  that  will 
be  discussed  later.  An  example  of  a  function  and  a  task 
follows. 

FUNCTION  keyinmain: 

BINARY, IS 

SENSE  (KEYFLAG)J 

IF  KEYFLAG  =  1  THEN  KEYINHAIN  :*  If  END  IF; 

END  KEYINMAIN; 

TASK  KBINPMAIN; 

MENU: *0|  ISSUE  (MENU) ; 

SENSE  (KEYCHAR); 


IF 

KEYCHAR 

* 

1 

THEN 

MINT AC 

:* 

i; 

END 

IF; 

IF 

KEYCHAR 

* 

2 

THEN 

MMSGDSPLY 

:  = 

l; 

END 

if; 

IF 

KEYCHAR 

* 

3 

THEN 

MLOCATION 

:  = 

l; 

END 

IF; 

IF 

KEYCHAR 

* 

4 

THEN 

MCLOCKSET 

:  = 

n 

END 

IFf 

IF 

KEYCHAR 

= 

5 

THEN 

MLOGINOUT 

J  as 

u 

END 

IF; 

KEYINMAIN  :=  0; 

END  keyinmain; 

FUNCTION  KEYINMAIN  is  called  according  to  the  time 
constraints  set  forth  in  the  contingency  list  as  described 
in  the  next  paragraph.  The  keyboard  active  status  flag  is 
checked  by  SEN%  (KEYFLG) .  If  the  flag  is  set,  then  the 


variable  KEYINMAIN  is  set.  Thus,  the  function  is  true  and 
the  associated  task  KBINPMAIN  is  performed.  This  task  calls 
for  the  video  display  interface  to  put  the  appropriate  menu 
on  the  VOT  with  the  statements  MENU:=0  and  ISSUE  (MENU). 
The  menu  presents  the  five  selections  available  to  the 
operator  and  waits  for  input.  Upon  pressing  a  number  key 
from  one  to  five,  the  appropriate  variable  is  set  to  one. 
Note  that  the  variable  is  the  same  name  as  a  function  in  the 
CSDL  program.  When  that  particular  function  is  tested  and 
is  found  to  be  true,  its  associated  task  will  be  performed. 
The  final  line  sets  the  function  associated  with  the  task  to 
zero  so  that  it  will  not  be  performed  again  until  set.  It 
is  important  in  this  data  link  receiver  project  to  insure 
that  no  more  than  one  function  be  set  at  any  given  time  in 
order  to  preserve  the  flow  of  program  control. 

The  fifth  section  is  the  contingency  list.  In  this 
section  the  designer  lists  the  contingencies  (functions) 
that  occur  and  the  time  constraints  for  performing  the 
associated  tasks.  This  is  where  CSDL  differs  greatly  from 
languages  that  execute  in  a  linear  manner  such  as  FORTRAN, 
BASIC,  or  Pascal.  The  timing  requirements  may  be  such  that 
some  functions  are  tested  several  times  before  another 
certain  function  is  tested  at  all.  Some  procedures  (tasks) 
may  be  performed  every  designated  time  period.  The 
execution  of  functions  and  procedures  are  dependent  upon  the 
timing  requirements  the  designer  delineates  in  this  section 


of  a  CSDL  program.  An  example  for  the  conti gency  section 
is: 


CONTINGENCY  LIST 

WHEN  KEYINMAIN 

:  100 

MS 

DO 

KB I NP MAIN; 

WHEN 

HINT AC 

:  100 

MS 

DO 

intac; 

WHEN 

SMHANUAL 

:ioo 

MS 

DO 

MANUAL; 

WHEN 

SHAUTO 

:  too 

MS 

DO 

AUTO; 

WHEN 

TPOLL 

:  loo 

MS 

DO 

POLLAUTO; 

WHEN 

MLOCATION 

:  loo 

MS 

DO 

LOCATION; 

WHEN 

TMLOCATION: 100 

MS 

DO 

MANLOC; 

WHEN 

POSCH 

:  loo 

MS 

DO 

PO SUP DATE; 

WHEN 

MMSGDSPLY 

:  loo 

MS 

DO 

msgdsply; 

WHEN 

MCLOCKSET 

:  100 

MS 

DO 

CLOCKSET; 

WHEN 

ML0GIN0UT 

:  100 

MS 

DO 

LOGINOUT; 

WHEN 

TLOGIN 

:  loo 

MS 

DO 

LOGIN; 

WHEN 

TLOGOUT 

:  100 

MS 

DO 

logout; 

WHEN 

MSG  IN 

:  loo 

MS 

DO 

msgstore; 

Uniting  code  in  CSDL  is  not  as  easy  or 


convenient  as 


in  many  high-level  languages.  There  are  several  factors 
that  can  make  it  a  frustrating  experience  for  those  Mho  are 
used  to  the  constructs  available  in  languages  such  as 
Pascal,  PL/1,  and  even  BASIC.  The  reader  should  not  judge 
CSDL  too  harshly.  It  should  be  remembered  that  the  CSDL 
language  Mas  designed  for  simpler  controllers  than  the  one 


attempted  in  this  thesis. 


There  are  no  comments  in  CSDL  other  than  those 
enclosed  in  quotes  in  the  Identification  Section.  It  is 
Midely  accepted  that  commenting  Mithin  programs  makes  it 
easier  to  maintain  those  programs.  Since  most  candidates 


for  a  CSDE  implementation  are  relatively  simple,  and  since 
most  CSDL  programs  Mill  be  Mritten  and  implemented  in  a 
fairly  short  time,  this  may  not  be  a  very  big  problem. 


The  data  link  receiver  project  would  normally  be  a 
candidate  -For  an  interrupt-dri ven  system.  As  it  is  pres¬ 
ently  implemented)  CSDL  has  no  ability  to  design  systems 
that  use  interrupts. 

Since  all  contingencies  and  tasks  in  CSDL  must  be  in  a 
one  to  one  ratio,  all  the  functions  and  tasks  have  been 
placed  together  in  the  listing  for  this  data  link  receiver 
CSDL  program.  This  makes  it  clearer  for  the  reader  (not  to 
mention  the  programmer)  when  perusing  the  code.  There  are 
many  menus  in  this  system  and  the  functions  and  tasks  have 
been  named  to  reflect  the  fact  that  some  menus  are  called 
from  other  menus.  The  main  menu  presents  five  choices.  If, 
for  instance,  the  operator  selects  "Interrogate  Aircraft" , 
FUNCTION  MINTAC  is  set  to  1  (true).  FUNCTION  MINTAC  is 
paired  with  TASK  INTAC.  Functions  generally  have  more 
letters  in  their  names  than  their  tasks  since  functions 
generally  have  a  prefix  added  to  the  name  of  the  associated 
task.  TASK  INTAC  calls  up  a  menu  wherein  the  operator  may 
select  a  return  to  the  main  menu  without  any  function  being 
carried  out,  or  the  operator  may  elect  to  interrogate  the 
aircraft  manually  or  automatically.  If  the  selection  is  to 
interrogate  automatically,  FUNCTION  SMAUTO  is  set  true. 
TASK  AUTO  is  paired  with  FUNCTION  SMAUTO,  and  by  now  the 
pattern  may  be  clear  to  the  reader.  The  name  of  function 
that  is  set  to  true  by  a  selection  made  under  the  main  menu 
is  prefixed  with  an  M.  A  menu  called  from  a  task  that  is 
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Associated  with  HMN  -function  has  a  function  prefixed  with 
"SH"  for  secondary  menu.  When  there  is  another  submenu,  the 
function  name  will  be  prefixed  with  "TMM  for  tertiary  menu. 
Tasks  have  names  similar  to  their  associated  functions  but 
without  the  prefixs. 

One  construct  that  would  be  most  welcome  in  CSDL  is 
the  CASE  statement.  This  would  allow  ease  of  programming 
when  one  out  of  several  possible  paths  would  be  chosen.  The 
lack  of  a  CASE  construct  requires  one  to  write  multiple  IF 
statements  which  does  not  make  for  the  most  elegant 
programming.  Several  of  the  procedures  in  this  data  link 
receiver  project  have  ten  IF  statements  where  some  other 
languages  would  be  able  to  express  the  same  function  in  one 
or  two  lines.  This  does  take  up  some  space  in  memory  but 
when  compiled  it  requires  less  space  and  may  be 
insignificant  in  terms  of  overhead.  The  real  problem  that 
is  evident  is  that  there  are  many  more  variables  than 
necessary  in  most  other  high-level  languages.  CSDL  does  not 
allow  for  subscripting  variables  which  leads  the  designer  of 
a  system  to  writing  many  more  lines  of  code  and  having  to 
name  each  variable  instead  of  using  subscripts.  For 
example,  ten  messages  are  required  to  be  in  memory  at  any 
given  time.  This  requires  ten  different  variable  names  for 
these  ten  messages.  A  pointer  must  keep  track  of  the  next 
message  block  available  for  use  and  it  would  be  quite  simple 
to  use  subscripted  variables  for  this  purpose.  Since  this 


is  not  possible,  a  series  of  nearly  identical  IF  statements 
must  be  traversed  when  locating  the  next  block.  The  same 
problem  occurs  when  printing  the  messages.  The  code  must 
explicitly  name  each  of  the  ten  variables.  It  would  require 
less  memory  for  the  program  to  be  able  to  refer  to  these 
variables  with  subscripts  and  would  also  make  for  clearer 
code.  The  complexity  could  be  simplified  by  adding  new 
primitives  that  would  allow  for  the  constructs  using 
subscripted  variables.  Examples  of  tasks  with  multiple 
statements  that  could  be  handled  with  a  CASE  statement 
include  KBINPMAIN,  INTAC,  and  AUTO.  Nearly  every  task  in 
this  program  could  benefit  from  the  use  of  subscripted 
variables. 

The  original  design  approach  was  to  divide  the  memory 
for  the  ten  messages  according  to  the  number  of  aircraft 
logged  into  the  system.  Two  message  memories  were  to  be 
reserved  for  messages  from  helicopters  not  logged  in.  Thus, 
there  would  have  been  a  maximum  of  eight  aircraft  tracked 
where  each  would  have  one  message  available  for  immediate 
recall.  This  would  be  the  worst  case  scenario  and  also 
highly  unlikely.  If  only  one  helicopter  was  logged  in,  the 
system  could  maintain  the  last  eight  messages  for  that  one 
helicopter.  Since  CSDL  does  not  provide  a  capablity  for 
indexing  variables,  it  would  be  difficult  to  provide  such 


dynamic  allocation  of  the  ten  message  memory  areas. 


It  is  highly  likely  that  there  will  be  three  or  less 
helicopters  logged  into  one  system  at  any  given  time.  It  is 
less  likely  that  there  would  be  -four  or  more  aircra-ft  logged 
in  simultaneously.  Standard  sa-fety  procedures  call  -for  a 
helicopter  to  maintain  a  radio  guard  at  all  times  and  send 
an  "operations  normal"  and  position  report  every  fifteen 
minutes.  If  there  were  three  helicopters  logged  into  one 
system  that  would  mean  12  reports  in  an  hour.  This  means 
that  the  two  earliest  reports  would  be  overwritten  by  newer 
messages  at  the  end  of  an  hour  but  there  would  be  at  least 
three  messages  remaining  for  each  aircraft.  Even  if  there 
were  ten  aircraft  using  the  system,  there  would  be  at  least 
one  message  in  memory  for  each  aircraft.  This  would  be  the 
last  position  sent  and  would  be  used  as  a  datum  for  search 
and  rescue  procedures  should  communications  be  lost  with  the 
aircraft.  Position  reports  include  heading,  track,  ground 
speed,  and  other  environmental  data  that  would  provide 
excellent  search  planning  information.  Since  manual  polling 
of  the  helicopters  is  provided,  it  would  be  possible  to 
manually  poll  one  or  more  helicopters  enough  times  so  that 
there  would  not  be  any  messages  in  the  memory  from  a 
particular  helicopter.  There  are  two  backups  in  this  case. 
First,  the  printer  should  be  enabled  so  that  there  would  be 
hard  copy  of  all  the  messages.  The  second  is  the 


•tul ti -track  audio  tapes  that  monitor  telephone  and  radio 
traffic  at  air  stations  and  aboard  the  flight-deck  equipped 


cutters.  Should  it  be  required  in  an  emergency,  the  tapes 
could  be  run  back  as  far  as  necessary  and  then  replayed  to 
feed  the  raw  radio  signals  to  the  radio  interface  device. 

Reading  messages  in  from  the  electronic  navigation 
device  interface  created  a  problem  when  coding  the  program. 
Each  message  is  56  bytes  long  and  the  input  to  the  processor 
is  8  bits  wide.  In  order  to  read  in  the  message,  the  56 
bytes  must  be  read  into  the  processor  and  sent  to  memory, 
the  video  display  unit,  and  the  printer  in  a  serial 
fashion.  There  was  no  construct  in  CSDL  that  would  read  in 
a  string  of  characters  of  this  length.  This  function  is  one 
that  is  basic  to  the  operation  of  this  system.  String 
handling  can  be  added  by  writing  a  new  primitive  that  would 
read  in  the  56  bytes  or  any  other  number  by  overloading  the 
SENSE  (input)  statement  in  CSDL.  Without  this  addition  to 
the  language,  there  could  be  no  CSDL  implementation  that 
would  satisfy  the  requirements  of  the  data  link  receiver 
project.  A  similar  primitive  can  be  specified  to  write  a 
message  out  to  the  VDT  and  printer  when  the  operator  selects 
that  function.  These  primitives  can  be  general  enough  that 
they  may  be  used  for  different  sizes  of  strings. 

When  the  CSDL  program  is  completed,  it  is  translated 
by  Carson’s  CSDL. PAS  program.  This  program,  written  in 
Pascal,  takes  the  high-level  CSDL  program  and  translates  it 
into  a  primitive  list  for  the  controller.  The  primitive 
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The  next  step  in  the  process  from  the  high-level 
description  to  the  hardware  and  so-ftware  listings  is  to  take 
the  output  of  the  CSDL  translator  and  feed  it  through  Ross' 
FORTRAN  program,  NEWCSDL . FOR . 

The  main  task  performed  by  NEWCSDL. FOR  is  to  map  the 
primitive  list  compiled  by  CSDL. PAS  to  the  selected 
realization  library.  The  output  includes  a  listing  of  the 
hardware  to  implement  the  controller  and  the  assembly 
language  software  to  run  it.  Two  files,  the  primitive  list 
and  another  containing  information  about  the  contingency 
list,  are  used  by  the  Optimizer  Module  in  NEWCSDL. FOR  to  set 
up  a  formatted  application  table  and  an  index  to  the 
selected  realization  volume.  The  Functional  Mapper 
constructs  the  Realization  Timing  Table  and  determines  if 
the  realization  is  feasible.  A  monitor  sequence  is  added 
and  actual  values  are  substituted  for  dummy  parameters  and 
an  output  listing  is  generated.  If  the  Timing  Analyzer 
fails  to  find  a  feasible  single  processor  realization,  the 
contingency /task  list  is  partitioned  and  a  dual  processor 
realization  is  generated  under  the  control  of  the 
Optimizer.  For  greater  detail,  see  Ross'  doctoral 
dissertation  CRef.  211. 
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The  project  at  this  point  had  progressed  -from  the  CSDL 
description  through  translation  by  Carson’s  CSDL. PAS 
program.  This  was  the  second  attempt  to  use  CSDL. PAS  on  a 
project.  The  first  use  was  for  a  test  of  CSDL. PAS  conducted 
by  Carson  by  running  Riley’s  jet  engine  start  sequencer 
controller  through  the  translator. 

There  were  some  problems  getting  the  CSDL  description 
for  the  data  link  receiver  project  through  the  translator. 
The  data  link  receiver  required  so  many  variable  names  that 
it  exceeded  the  size  limits  set  in  CSDL. PAS.  One  problem 
concerned  a  CASE  statement  in  the  CSDL. PAS  program  where  20 
possible  cases  existed.  This  problem  was  resolved  by 
increasing  the  allowed  number  of  cases  to  95.  There  were 
other  errors  generated  in  translation  that  were  quite 
frustrating.  One  problem  was  overcome  when  it  was 
discovered  that  CSDL. PAS  would  generate  errors  whenever  a 
tabkey  had  been  used  to  produce  spacing  within  the  CSDL 
description.  All  tabkey  spacing  was  removed  and  replaced 
with  spaces  generated  using  the  spacebar.  CSDL. PAS  should 
be  modified  to  allow  for  spaces  generated  by  either  the 
space  bar  or  the  tabkey. 

More  problems  were  discovered  when  trying  to  run  the 
primitive  list  generated  by  CSDL. PAS  through  NEWCSDL.FOR. 
FORTRAN  is  notorious  for  the  inflexibility  of  program 
inputs,  which  is  a  carryover  from  the  days  of  card  input. 


NEWCSDL.FOR  is  no  exception.  Title  lines  for  functions  and 
procedures  in  the  primitive  files  have  the  format: 


16  23 

p  xxx  t. generated  for:  procedure  name 

where  xxx  represents  the  line  number  of  the  primitive  and  t 
stands  for  title  line.  The  t. generated  for  primitive  marks 
the  beginning  of  a  new  procedure.  The  procedure  names  in 
the  title  lines  of  the  primitive  list  as  generated  by 
CSDL.PAS  were  in  column  22.  When  NEWCSDL.FOR  is  run  with 
the  procedure  name  in  the  wrong  column,  everything  between 
the  title  lines  is  ignored  and  error  messages  are  generated 
for  each  title  line  in  the  file.  Each  title  line  in  the 
primitive  list  had  to  be  reformatted  to  meet  the 
requirements  of  NEWCSDL.FOR. 

Another  problem  encountered  in  the  translation  was 
that  the  s.ni  primitive  should  have  appeared  as: 
p  xxx  s.ni  (::) 

The  s  stands  for  a  software  primitive.  An  h  stands  for  a 
hardware  primitive.  The  colons  inside  the  parentheses  are 
required  because  they  are  used  to  separate  variables, 
parameters,  and  attributes.  They  were  not  in  the  primitive 
list  generated  by  CSDL.PAS.  The  colons  were  added  using  the 
text  editor.  A  similar  error  was  discovered  in  the  s.main 
primiti ve. 

The  entire  primitive  list  must  be  in  lower  case 
letters  except  for  the  function  and  task  names.  They  may  be 
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in  upper  or  lower  case  as  long  as  they  are  consistent  with 
the  case  used  in  the  contingency  list  file.  Although 
CSDL.PAS  allows  variable  names  of  up  to  ten  characters  in 
length,  NEWCSDL.FOR  has  a  maximum  of  six  characters.  The 
designer  must  insure  that  no  two  variables  have  the  same  six 
first  characters. 

Nhile  the  formatting  errors  and  the  lack  of  colons  in 
the  proper  places  created  some  unnecessary  work,  the  biggest 
problem  at  this  point  was  the  incompatibility  of  the 
primitive  list  and  the  Z80  realization  library.  For 
instance,  the  function  of  one  basic  primitive  is  to  sense  a 
value  on  a  particular  input  line  to  the  processor.  This 
primitive  has  the  form: 

p  xxx  s.sensecond  <keychar:8) 

where  sensecond  stands  for  sense  condition,  keychar  is  the 
name  of  some  variable,  and  eight  refers  to  the  arithmetic 
precision  of  the  variable.  It  was  discovered  that  the  Z80 
realization  library  did  not  contain  any  realization  of  this 
primitive. 

The  Z80  library  was  designed  by  Smith  at  the  same  time 
Riley  was  working  on  the  jet  engine  start  controller.  This 
was  before  Carson’s  CSDL.PAS  program  was  available.  Riley 
had  to  translate  the  CSDL  listing  into  a  primitive  list  by 
hand.  Since  he  chose  to  implement  his  project  using  the  Z80 
library,  he  and  Smith  worked  closely  together.  Prolog 
equipment  was  used  for  the  project  implementation  and  so 


Smith  geared  the  Z80  library  toward  that  end.  Thus,  the  Z80 
library  was  not  as  general  as  needed  to  produce  contollers 
using  other  hardware.  In  particular,  the  I/O  primitives 
were  designed  specifically  to  match  the  Prolog  hardware. 
The  s. sense  and  s. issue  primitives  were  not  needed  for  the 
Prolog  implementation  and  thus  were  not  included  in  the  Z80 
realization  library. 

At  this  point  it  was  decided  to  shift  the  emphasis 
from  using  the  Z80  realization  library  to  the  8080  and  8086 
realization  libraries.  There  were  two  reasons  for  this. 
First,  the  designer  of  the  8086  library,  Cetel ,  was  still 
available  to  make  adjustments  to  the  library.  Second,  the 
8086  library  closely  followed  the  example  of  the  original 
8080  library  built  by  Ross.  If  the  primitive  list  could  be 
adjusted  to  run  under  NEWCSDL.F0R,  then  two  realizations  of 
the  data  link  receiver  could  be  produced.  This  would  help 
standardize  the  realization  libraries  to  where  any  library 
could  be  used  with  the  primitive  list  output  by  CSDL.PAS  and 
further  processed  by  NEWCSDL.F0R. 

Other  problems  remained  stemming  from  the  incom- 
patibilty  of  the  primitive  list  produced  by  CSDL.PAS  and  the 
realization  libraries.  CSDL.PAS  produced  other  primitives 
that  did  not  ."Xist  in  the  realization  libraries.  These 
primitives  included  s.inputport  and  s. out put port .  Inputport 
and  outputport  are  both  primitives  that  remain  to  be  added 
to  the  realization  libraries. 


The  s.forcons  and  s.forend  primitives  in  the  8080  and 
8086  libraries  are  not  in  the  same  format.  These  primitives 
mark  the  beginning  and  end  of  for-next  loops.  There  are  two 
variables  for  the  upper  and  lower  values  of  the  loop. 
NEWCSDL.FOR  expects  actual  numbers  but  CSDL.PAS  produces 
variable  names  instead. 

The  s.exitproc  primitive  marks  the  end  of  a  procedure 
in  the  primitive  list.  NEWCSDL.FOR  was  designed  to  use  the 
contingency  name  in  the  parameter  list  to  reset  the  value  of 
the  contingency  to  zero  after  the  task  was  executed.  The 
CSDL  program  written  for  this  project  included  a  statement 
at  the  end  of  each  task  explicitly  resetting  the 
contigency.  Ross  decided  that  the  realization  libraries  and 
NEWCSDL.FOR  would  be  changed  to  adopt  this  latter  method  of 
resetting  the  contingency. 

There  are  several  different  primitives  with  the  same 
names  in  a  realization  library.  This  is  to  allow  for 
different  precisians  of  arithmetic  manipulations. 
NEWCSDL.FOR  performs  a  binary  search  to  find  a  primitive 
name.  When  it  finds  the  primitive,  it  searches  up  the 
realization  library  index  to  find  the  first  instance  of  the 
primitive  name.  NEWCSDL.FOR  then  works  down  through  the 
index  to  find  the  first  instance  of  the  primitive  that  will 
satisfy  the  precision  required.  For  instance, 


s.var  and 


s.cons  primitives  in  the  8086  realization  library  had  the 
format: 

s.var  (nam,val:  0,8  :...etc> 
s.var  (nam,val:  0,16  :...etc) 
s.var  (nam,val:  0,24  :...etc> 

where  the  0,n  referred  to  variables  with  zero  to  n  bits  of 
precision.  It  was  discovered  that  NEWCSDL. FOR  was  choosing 
the  greatest  precision  available  every  time.  This  was 
corrected  by  changing  8086  realization  library  to  the 
format: 

s.var  (nan, val :  0,8  :...etc) 
s.var  <nam,val:  9,16  :...etc) 
s.var  (nam,val:  17,24  :...etc) 

The  correct  precision  is  now  selected  for  these  particular 
primitives  but  the  entire  8086  library  must  be  examined  for 
other  instances  of  this  precision  error. 

NEWCSDL. FOR  requires  a  listing  of  the  contingency /task 
pairs  in  a  file  named  IADEFL.DAT  as  one  of  its  inputs. 
CSDL.PAS  creates  such  a  file  but  it  is  not  in  the  required 
format.  A  new  line  for  the  system  must  be  added  as  the 
first  line  in  the  file.  The  other  columns  must  be  corrected 
to  the  format  as  set  forth  in  Ross’  doctoral  dissertation. 

The  multiplication  primitive,  s.mult,  was  present  in 
the  8086  library  as  s.mul.  The  two  precisions  of  multiply 
were  renamed  s.mult  to  conform  with  the  standard.  The 
s.mult  primitive  in  the  8080  library  had  been  changed  by 
Pol luck  from  a  strictly  software  implementation  to  one  that 
called  an  arithmetic  chip  to  do  a  hardware  multiply.  The 


chip  had  been  removed  -From  the  library  at  some  point  before 
this  project  was  started.  Either  the  chip  or  the  software 
multiplication  routine  must  be  restored  for  the  8080  library 
to  correctly  handle  multiplication. 

The  size  of  the  program  also  created  problems  in 
NEWCSDL . FOR .  One  of  the  stacks  in  the  Formatter  Nodule 
proved  to  be  too  small  for  the  data  link  receiver  project. 
The  stack  overflowed  before  the  completion  of  the 
realization.  The  program  was  adjusted  by  Ross  to  allow  for 
a  greater  stack  size.  The  output  of  NEWCSDL.FOR  for  the 
8086  library  is  in  Appendices  D  and  E. 

At  the  time  of  writing  this  thesis,  the  following 
corrections  and  alterations  to  the  primitive  file  must  be 
made  for  NEWCSDL.FOR  to  properly  process  it.  The  two  lines 
with 

t. generated  for:  SYSTEN  *********** 

must  be  corrected  to  start  the  word  system  in  column  23. 
The  second  line, 
s.NAIN  <::> 

must  be  changed  so  that  the  word  main  is  in  lower  case 
letters.  All  lines  with  s.inputport  or  s.outputport  must  be 
removed  from  the  program  altogether  until  those  primitives 
are  added  to  the  realization  libraries. 

Even  with  these  changes,  some  errors  were  still 
produced.  To  avoid  problems  with  the  s.in,  s.ni,  s.forcons. 


s. for end,  and  s.exitproc  primitives,  the  original  CSDL 


program  was  rewritten  to  remove  -for— next  loops  and  timed 
blocks.  These  primitives  must  be  standardized  before  they 
may  be  used  without  concern  for  any  errors  they  may 
produce.  The  revised  CSDL  program  is  in  Appendix  B. 

The  two  realization  libraries  now  produce  the  software 
and  hardware  listings  to  implement  the  data  link  receiver 
project  but  not  without  errors.  One  prominent  mistake  is 
that  each  time  an  input  is  sensed,  another  chip  is  added  to 
the  hardware  listing.  There  should  only  be  one  I/O  chip 
produced  for  a  particular  input  or  output.  At  the  time  of 
this  writing,  CSDL. PAS  and  NEWCSDL . FOR  are  being  patched  to 
correct  some  of  the  problems  discovered  while  designing  the 
data  link  receiver. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

The  Control  System  Design  Environment  holds  great 
promise  as  a  tool  for  simplifying  the  work  of  designers  and 
reducing  the  expense  of  producing  controllers.  This 
ambitious  data  link  receiver  project  has  shown  that  the  CSDE 
has  greater  application  than  may  have  been  realized  by  those 
who  did  the  early  work  on  it.  This  project  has  shown  that 
it  may  be  possible  to  design  a  system  in  modules  and  use 
CSDE  to  design  each  each  of  the  modules  independently  of  the 
others  as  long  as  the  interfaces  are  compatible. 

This  project  has  also  demonstrated  the  necessity  for 
compatibility  among  the  different  programs  within  the 
Control  System  Design  Environment.  Since  the  output  of  one 
program  is  the  input  of  another,  there  must  be  a  conscious 
effort  to  standardize  the  interfaces. 

Heilstedt  has  recommended  that  NEWCSDL.FOR  be 
rewritten  in  a  newer  language  than  FORTRAN  CRef.  223.  While 
it  is  true  that  other  languages  may  be  easier  to  maintain 
than  FORTRAN,  there  are  other  items  in  the  Control  System 
Design  Environment  that  should  be  addressed  first  for  a 
better  return  on  the  investment  of  the  time  and  effort  that 
would  be  required.  Since  VMS  on  the  VAX  computer  allows  a 


file  produced  under  one  language  to  be  used  as  input  to 


another  language,  there  is  no  need  to  rush  a  reprogramming 
o-f  NEWCSDL . FOR .  A  rewrite  of  NEWCSDL.FOR  would  make  the 
input  less  column-dependent.  A  more  critical  problem  is  the 
incoapatibilty  among  the  different  realization  libraries. 
There  should  be  a  standardization  of  primitive  names  and 
their  associated  functions.  Without  this  standardization, 
the  mapping  from  primitive  lists  to  the  realization 
libraries  will  continue  to  be  a  hit  or  miss  proposition. 
One  of  the  major  objectives  of  the  Control  System  Design 
Environment  is  that  much  of  the  work  can  be  automated  to 
make  designing,  prototyping,  testing,  and  implementation  of 
controllers  faster  and  less  expensive.  The  lack  of 
standardization  requires  the  intervention  of  the  designer  to 
make  the  transitions  between  the  various  elements  of  the 
system. 

Along  with  the  standardization  of  the  realization 
libraries,  CSDL.PAS  should  be  updated  to  incorporate  the 
standards.  This  program  is  a  real  boon  to  the  designer 
since  it  removes  the  tedious  work  of  translating  the  CSDL 
program  into  the  primitive  list.  As  previously  discussed, 
implementing  some  other  high  level  constructs  in  CSDL.PAS 
would  be  an  enhancement  of  the  value  of  the  program  for  the 
system  user.  These  constructs  should  include  CASE 
statements  and  the  use  of  subscripted  variables. 

The  Control  System  Design  Environment  has  great 
promise  and  could  be  a  lucrative  product  when  it  is  improved 


to  provide  an  automatic  transition  -from  CSDL  description  to 
the  hardware  and  software  listings.  As  presently 
implemented,  it  requires  too  much  effort  while  moving 
through  the  different  segments  of  the  system.  A  great  deal 
of  work  remains  to  be  done,  especially  the  testing  of  the 
interfaces  between  the  different  sections  and  of  the 
realization  libraries.  It  seems  that  the  work  will  be  well 


wor  th  it. 
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APPENDIX  A 


C SDL  PROGRAM 


IDENTIFICATION 

DESIGNER  :  "SJTTER  FOX" 

DATE  :  "05-51 -84" 

PROJECT  : "COAST  GUARD  DATA  LINK  RECEIVER" 


DESIGN  CRITERIA 

METRIC  FIRST; 
VOLUMES  1; 
MONITORS  U 


ENVIRONMENT 

inputskeyflg, i,ttl;  keychar,«,ttl;  manpos,8,ttl; 

newpos, i,ttl;  position, ttl;  msgready, i,ttl; 
message, a,ttl;acnum,«,ttl; 

END  INPUT; 

output:  menu,8, ttl;°oll,8,ttl;msgvdt,8, ttl; 
msgrcvd, i  ,ttl; 

END  OUTPUT; 

ARITHMETIC:  KEY INMAIN, 8;  mjntAC,8;  MMSGDSPLY,8; 

MLOCATION, 8;  MCLOCKSE  T , 8  ;  MLOGINOUT,8;  SMWANUAL,8 
SMA'JTO,  8;  AC0,8;  AC1,8;  AC2,B;  AC5,8;  AC4,8;AC5,8 
AC6,8;  AC7 , 8 ;  AC8,8;  AC9,6;  INTPERIOD,8;  MSG0,8; 
MSG  1,8;  MSG2 , 8 ;  MSG3,8;  MSG4,8;  MSG5,8;  MSG6,8; 
MSG  7,8;  MSGS ,  8  ;  MSG9, 8  ,*  TMLOC  A  T  I  ON,  8  i  TLOGIN,l; 
TLOGOUT , 1 ;  NE  X  TMSG , 8 ;  NEXTAC,8;  TPOLL,l;  COUNT, 8; 
END  ARITHMETIC,* 


PROCEDURES 


FJNCTION  KEYINMAIN: 

BINARY,  1 ; 

SENSE  (KEYFLG); 

IF  KEYFLGsl  THEN  KEYINMAIN:=l;  END  IF; 
END  KEYINMAIN; 


TASK  K8INPMAIN 


*. «.  s  s 


MENU : sO  ?  ISSUE  (MENU); 
SENSE  (KEYCHAR); 


p 

IF 

K£YCHAR=1 

THEN 

MINTAC  :=l; 

END 

IF; 

IF 

KEYCHAR=2 

THEN 

MMSGDSPLY : = l ; 

END 

IF; 

IF 

KEYCHAR= J 

THEN 

ml0CATI0N:=i ; 

END 

IF ; 

*• 

IF 

KEYCHARsa 

THEN 

MCLOCKSET : = l ; 

END 

IF; 

IF 

KEYCHAR=5 

THEN 

ML0GIN0UT:=1 ; 

END 

IF; 

KE  Y I NMA  I N  J  =0 ; 

END  kbinpmain; 


FJNCTION  MINTAC: 

BINARY,  1 ; 

SENSE (KEYCHAR) ; 
END  MINTAC? 


TASK  INTAC; 

MENUt=l;  ISSUE  (MENU); 

SENSE  (KEYCHAR); 

IF  KEYCHAR=0  THEN  KE Y I NMA I N : = 1 ; 
IF  KEYCHARs 1  THEN  SMMANUAL  :=l; 
IF  KEYCHAR=2  THEN  S«AUTO  :-\i 

mintaC:=o; 

END  intac; 


END 

END 

END 


IF; 

IF; 

IF; 


i 


I 


0 


FJNCTION  SMMANUAL: 

BINARY, 1 ; 

SENSE (KEYCHAR) ; 
END  SMMANUAL; 

TASK  manual; 


IF 

AC0/=0 

THEN 

POLL 

=  0 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

ACl/=0 

THEN 

POLL 

=  1 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

A C2/~Q 

THEN 

POLL 

=2 

ISSJE 

(POLL) ; 

END 

IF; 

IF 

AC3/=0 

THEN 

POLL 

=  3 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

Aca/=o 

THEN 

POLL 

=  4 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

AC5/=0 

THEN 

POLL 

=  5 

ISSJE 

(POLL) ; 

END 

IF; 

IF 

AC6/=0 

THEN 

POLL 

=  6 

ISSUE 

(POLL)  ; 

END 

IF; 

IF 

AC7/=0 

THEN 

POLL 

=  7 

ISSJE 

(POLL)  ; 

END 

IF; 

IF 

ACB/sO 

THEN 

POLL 

=  8 

ISSUE 

(POLL) ; 

END 

if; 

IF 

AC9/rO 

THEN 

POLL 

=  9 

ISSJE 

(POLL) ; 

END 

if; 

SMMANUAL! 

=0; 

end  manual; 


FJNCTION  SMAUTO: 

BINARY, l; 

SENSE  (KEYCHAR); 
END  SMAUTO; 
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TASK  auto; 


MENU: =2»  ISSJE(MFNU); 
SENSE  (KEYCHAR); 


IF 

KEYCHARsO 

THEN 

keyinmain 

z 

i 

9 

END 

IF; 

IF 

KEYCHAR=1 

THEN 

INTPERIOD 

= 

50 

• 

9 

END 

IF; 

IF 

KEYCHAR=2 

THEN 

INTPERIOD 

= 

20 

• 

9 

END 

IF; 

IF 

KEYCHAR*  5 

THEN 

I NTPERIOD 

s 

15 

• 

9 

END 

IF; 

IF 

KEYCHARS4 

THEN 

INTPERIOD 

r 

10 

• 

9 

END 

IF; 

IF 

KEYCHARS5 

THEN 

INTPERIOD 

z 

5 

• 

9 

END 

IF; 

IF 

KEYCHARsb 

THEN 

INTPERIOD 

s 

1 

• 

9 

END 

IF; 

SMAUTO.*=0; 

tpoll:*i  : 
END  auto; 


FJNCTION  TPOLL : 


BINARY,  1  ; 

IF 

INTPERIODS30  THEN 
END  in;  ENO  IF; 

IN 

30 

M 

DO 

TPOLL :=i 

IF 

INTPERIOD=20  THEN 
END  in;  end  if; 

IN 

20 

M 

DO 

TPOLL : *  1 

IF 

INTPERI00=15  THEN 
END  in;  end  if; 

IN 

15 

M 

DO 

TPOLL:*l 

IF 

INTPERIOOs 1 0  THEN 
END  in;  end  if; 

IN 

10 

M 

DO 

TP0LL:=1 

IF 

INTPERIOD*  5  THEN 
END  IN;  END  IF; 

IN 

s 

M 

DO 

TP0LL:=1 

IF 

INTPERIOD*  1  THEN 
END  in;  end  IF; 

IN 

1 

M 

DO 

TPOLL:*! 

ENO  TPOLL,* 

TASK  POLLAUTO; 


IF 

AC0/=0 

THEN 

PULL 

O 

II 

ISSUE 

(POLL) 

END 

IF; 

IF 

ACl/=0 

THEN 

POLL 

=  1  ; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC2/=0 

THEN 

POLL 

=  2; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC3/=0 

THEN 

POLL 

=  5; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC4/=0 

THEN 

POLL 

=«; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC5/*0 

THEN 

POLL 

=  5; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC6/=0 

THEN 

POLL 

=  6; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC7/*0 

THEN 

POLL 

=  7; 

ISSUE 

(POLL) 

END 

if; 

IF 

AC8/=0 

THEN 

POLL 

=  8; 

ISSUE 

(POLL) 

END 

if; 

IF  ACR/=0 
TPOLL:=o; 

THEN 

POLL 

=  9; 

ISSUE 

(POLL) 

END 

if; 

END  POLLAUTO; 


FJNCTION  MMSGDSPL  Y : 
BINARY  ,  1 ; 

SENSE  (KEYCHAR); 
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END  MMSGDSPLY? 

TASK  MSGOSPLY? 

MSGVOTjsMSGO? 
MSGVOTjsMSGI; 
MSGVOT:sMSG2? 
MSGVDT:=MSG3; 
MSGVDT  !  sHSG'4 ; 
MSGVOT:sMSG5? 
MSGVDT : sMSGbJ 
MSGVOT : =MSG7 } 
MSGVDT  J sMSG8? 
MSGVDT ! sMSG9 } 
MMSGOSPLY:=0; 
END  msgdsply; 


ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 


(MSGVDT); 
(MSGVDT)  ; 
(MSGVDT) ; 
(MSGVDT) ; 
(MSGVDT) ; 
(MSGVDT)  #* 
(MSGVDT); 
(MSGVDT) ; 
(MSGVDT); 
(MSGVDT) ; 


F JNC T ION  MLOCATION: 

BINARY, l; 

SENSE  (KEYCMAR); 

END  MLOCATION; 

TASK  location; 

MENU:=3;  ISSUE  (MENU); 

SENSE  (KEYCHAR); 

IF  KEYCHARaO  THEN  KEYINMAIN:=1 ;  END  IF; 

IF  KEYCHAR=1  THEN  NErtPOS;sl;  END  IF; 

IF  KEYCHAR=2  THEN  NE*POS:=0;  TMLOC AT  I  ON :  =  1 ;  END  IF; 
MLOCATION ; sO ; 

END  LOCATION; 


FJNCTION  TMLOC  A  T I  ON ; 
BINARY,  l; 

SENSE (KEYCHAR ) ; 
END  TMLOCATION; 

TASK  MANLOC; 

SENSE  (MANPOS); 
POSITIONjsMANPOS; 
TMLOCATION: sO; 

END  MANLOC; 


FJNCTION  MCLOCKSET: 

3INARY , 1 ; 

SENSE(KEYCHAR) ; 

END  MCLOCKSET; 

TASK  clockset; 

MENU: *4;  IS3UE  ( MEN J )  l 
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I 


SENSE  {KEYCHAR); 
MCLOCKSETjsOJ 
E NO  CLOCKSET t 


FJNCTION  MLOGINOUT: 

BINARY, l; 

SENSE  (KEYCHAR); 

END  MLOGINOUT; 

TASK  LOGINOUT; 

menu:=s;  issue  (menu); 

SENSE  (KEYCHAR); 

IF  KEYCHARsO  THEN  KE Y I NMA I N : s ! ;  END  IF; 
IF  KEYCHARsl  THEN  TLOGIN:  =  l  ;  END  IF; 

IF  KEYCHARs?  THEN  TLOGOUT:=i;  END  IF; 
MLOGINOUT :  *0 ; 

END  LOGINOUT; 


FJNCTION  TLOGIN; 

BINARY,  l; 

SENSE (KEYCHAR); 

END  TLOGIN; 

TASK  LOGIN; 

ACNUMjsO; 

FOR  COUNT  FROM  1  TO  a : 4  DO 
SENSE  (KEYCHAR); 

ACN JM : s ( ACNUM* 10J+KEYCHAR; 


END  for; 


IF 

NEXT  AC-0 

AND 

AC0  =  0 

THEN 

ACO 

=acnum; 

END 

if; 

IF 

NEXTAC=1 

AND 

AClsO 

THEN 

AC! 

=acnum; 

END 

IF; 

IF 

NEXT  AC  =  2 

AND 

AC2sO 

THEN 

AC2 

=acnum; 

END 

IF; 

IF 

NEXTAC=3 

AND 

AC  3  =  0 

THEN 

AC3 

=acnum; 

END 

IF; 

IF 

NEXTAC=a 

AND 

Aca=o 

THEN 

AC4 

=acnum; 

END 

IF; 

IF 

NEXTACsS 

AND 

AC5  =  0 

THEN 

AC5 

SACNUM; 

END 

IF; 

IF 

NEXT  AC=6 

AND 

AC6  =  0 

THEN 

AC6 

=acnum; 

END 

IF; 

IF 

NEXT  AC  =  7 

AND 

AC  7  =  0 

THEN 

AC7 

=acnum; 

END 

IF; 

IF 

NEXTACs8 

AND 

AC8  =  0 

THEN 

AC8 

=acnum; 

END 

IF; 

IF 

NEXTAC=9 

AND 

AC9  =  0 

THEN 

AC9 

=acnum; 

END 

IF; 

NEXTAC:=NEXTAC+1 i 

IF  NEXTAC=10  THEN  NEXTAC:=0;  END  IF; 
TL0GIN;=0; 

ENO  login; 


FJNCTION  TLOGOUT: 

binary, i ; 

SENSE(KEVCHAR) ; 
END  TLOGOUT,* 


•Vv'v' 
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TASK  LOGOUT; 

ACNUMjsO; 

FOR  COUNT  FROM  1  TO  4:4  DO 
SENSE  (KEYCHAR); 
ACNUM:s(ACNUM*10) fKEYCHAR; 
END  FOR; 

IF  ACOsACNUM  THEN  AC0:=0;  END  IF; 
IF  AClsACNUM  THEN  ACO:=l;  END  IF; 
IF  AC?=ACNUM  THEN  AC0;s2;  END  IF; 
IF  AC3=ACNUM  THEN  AC0:=3;  END  IF; 
IF  ACasACNUM  THEN  AC0*.s4;  END  IF; 
IF  AC5  =  ACNUM  THEN  AC0.*s5;  END  IF; 
IF  AC6  =  ACNUM  THEN  ACO;s6;  END  IF." 
IF  AC7=ACNUM  THEN  AC0:=7;  END  IF; 
IF  ACSsACNUM  THEN  A COjsS;  END  IF; 
IF  AC9=ACNUM  THEN  AC0:=9;  END  IF; 
TLOGOUTS=0; 

ENO  LOGOUT; 


FJNCTION  POSCH: 

BINARY,  |; 

SENSE  (NEAPOS); 

IF  NErtPOS=l  THEN  POSCHjst;  END  IF; 
END  POSCH,* 

TASK  posupdate; 

SENSE  (POSITION); 

POSCHjsO; 

END  POSUPDATE; 


FJNCTION  MSGIN; 

BINARY,  l; 

SENSE  (MSGREAOY); 

IF  MSGREADY=1  THEN  MSGIN:=i;  END  IF; 
END  «SGIN; 

TASK  msgstore; 


SENSE  (MESSAGE); 
ISSUE  (MSGRCVO); 


IF 

NEXTMSGsO 

THEN 

ACO 

sMESSAGE; 

END 

IF 

IF 

NEXTMSGs 1 

THEN 

AC  1 

smessage; 

END 

IF 

IF 

NEXTMSGs? 

THEN 

AC2 

sMESSAGE; 

END 

IF 

IF 

NEXTMSG=3 

THEN 

AC  3 

smessage; 

END 

IF 

IF 

NEXTMS3=4 

THEN 

AC4 

sMESSAGE; 

END 

IF 

IF 

NEXTMSG=5 

THEN 

AC5 

smessage; 

END 

IF 

IF 

NEXTMSGsb 

THEN 

AC6 

smessage; 

END 

IF 

IF 

NEXTMSGs7 

THEN 

AC  7 

smessage; 

END 

IF 

IF 

NEXTMS3s8 

THEN 

ACS 

smessage; 

END 

IF 

IF 

NEXTMSGs? 

THEN 

AC9 

smessage; 

END 

IF 
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NEXTMSG:*NEXTMSG+1  ? 

IF  NEXTMSGs 1 0  THEN  NEXTMSG 
END  MSGSTORE; 


CONTINGENCY  LIST 


WHEN 

KEYINMAIN 

100 

MS 

DO 

WHEN 

MINTAC 

100 

MS 

DO 

WHEN 

SMMANUAL 

100 

MS 

DO 

WHEN 

SMAUTO 

100 

MS 

DO 

WHEN 

TPOLL 

100 

MS 

DO 

WHEN 

MLOCATION 

100 

MS 

DO 

WHEN 

TMLOCATION 

100 

MS 

DO 

WHEN 

POSCH 

1000 

MS 

DO 

WHEN 

MMSGDSPLY 

100 

MS 

DO 

WHEN 

MCLOCKSET 

100 

MS 

DO 

WHEN 

ML0GIN3UT 

100 

MS 

DO 

WHEN 

TLOGIN 

100 

MS 

DO 

WHEN 

TLOGOUT 

100 

MS 

DO 

WHEN 

MSGIN 

100 

MS 

DO 

END 


so;  END  IF? 


KBINPMAIN; 

intac; 

manual; 

auto; 

POLLAUTO; 

location; 

MANLOC; 

posupoate; 

msgdsply; 

clockset; 

loginout; 

login; 

logout; 

MSGSTORE; 


62 


APPENDIX  B 


CSDL  PROGRAM 
(REVISED) 


IDENTIFICATION 

DESIGNER  :  "SJTTER  FOX- 
DATE  :  "05-51-84" 

PROJECT  :"COAST  GUARD  DATA  LINK  RECEIVER" 


DESIGN  CRITERIA 

METRIC  FIRST; 
VOLUMES  l; 
MONITORS  1? 


ENVIRONMENT 

input:keyflg,i,ttl;  keychar,8, ttl;  manpos,8,ttl; 

newpos,i,ttl;  positions,  ttl;  msgready,  i ,ttl; 
message,8,ttl;acnum,s,ttl; 

END  input; 

OJTPUT:  menu,8,ttl;poll,8,ttl;msgvdt,8,ttl; 
msgrcvd,i,ttl; 

END  OUTPUT; 

ARITHMETIC:  KEYINMAIN,8;  MINTAC,8;  MMSGDSPL Y ,  8 ; 

ML0CATI0N,8;  MCLOCKSET,8;  ML0SIN0UT,8;  SMMANUAL,8 
SMAUTO, 8 ;  AC0,e;  AC1,8;  AC2,8;  AC3,8;  AC4,8,*AC5,8 
AC6.8;  ACT, 8;  AC8,8 ;  AC9,8;  INTPERI0D,8;  MSG0,8; 
MSG  1,8;  MSG2,8;  MSG3,8;  MSG4,B;  MSG5,8;  MSG6,8; 
MSG7, 8;  MSG3,8;  MSG9, 8; TMLOCATION, 8;  TLOGIN,!,* 
TLOGOUT , 1 ;  NEXTMSG, 8;  NEXTAC,8;  TPOLL,i;  COUNT, 8; 
CLOCK, 8,* 

end  arithmetic; 


PROCEDURES 


FJNCTION  KEYINMAINJ 
BINARY, 1 ; 

SENSE  (KEYFLG); 


IF  KEVFLGsl  THEN  KE Y I NMA I N : s t ;  END  IF; 
ENO  KEY  INHA  IN; 

TASK  kbinpmain; 

MENU:=0;  ISSUE  (MENU); 

SENSE  (KEYCHAR) J 

IF  KEYCHAR=1  THEN  MINTAC  :=1J  END  IF; 
IF  KEYCHARs?  THEN  MMSGDSPL Y ;  =  l ;  END  IF; 
IF  KEYCHAR=3  THEN  MLOC AT  I  ON  :  =  1  ?  END  IF; 
IF  KEYCHARsa  THEN  MCLOCK SE T :  =  1 ;  END  IF; 
IF  KEYCHARsS  THEN  M|_OG I NOUT  5  =  1 ;  END  IF; 

keyinmain: =0; 

END  kbinpmain; 


FJNCTION  MINTAC: 

8INARY,  l; 
SENSECKEYCHAR)? 
END  MINTAC; 


TASK  I  NT  AC  < 

MENU:=i;  ISSUE  ( MEN J ) ; 

SENSE  (KEYCHAR); 

IF  KEYCHAR=0  THEN  K£ Y I NMA IN : = 1 f  END  IF; 
IF  KE YCHARs 1  THEN  SMMANUAL  :*l;  END  IF; 
IF  KEYCHARs?  THEN  SMAUTO  :*l;  END  IF; 

mintac:=o; 

END  INTAC; 


FJNCTION  SMMANUAL: 

BINARY, 1 ; 

SENSE (KEYCHAR); 
END  SMMANUAL; 

task  manual; 


IF 

AC0/=0 

THEN 

POLL 

=  0; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

ACl/=0 

THEN 

POLL 

=  1 ; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC2/=0 

THEN 

POLL 

=2; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC3/sO 

THEN 

POLL 

s3; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC4/*0 

THEN 

POLL 

s«; 

ISSUE 

(POLL); 

END 

IF 

IF 

AC5/=0 

THEN 

POLL 

s  s; 

ISSUE 

(POLL)  ; 

END 

IF 

IF 

ACb/=0 

THEN 

POLL 

=6; 

ISSUE 

(POLL)  ; 

END 

IF 

IF 

AC7/=0 

THEN 

POLL 

=  7; 

ISSUE 

(POLL); 

END 

IF 

IF 

AC8/S0 

THEN 

POLL 

s  ft; 

ISSJE 

(POLL) ; 

END 

IF 

IF 

AC9/sO 

THEN 

POLL 

=R; 

ISSUE 

(POLL); 

END 

IF 

SMMANUAL: 

so; 

end  manual; 


F JNCTION  SMAUTO : 

BINARY ,  1  # 

SENSE  (KEYCHAR); 
END  SMAUTOJ 


TASK  auto; 

MENU:=2;  ISSUE(MENU); 
SENSE  (KEYCHAR); 


IF  KEYCHARsO  THEN 
IF  KEVCHARsl  THEN 
IF  K£YCHAR=2  THEN 
IF  KEYCHARr3  THEN 
IF  KEYCHAR=4  THEN 
IF  KEYCHAR=5  THEN 
IF  KEYCHARsft  THEN 
SENSE  (CLOCK); 
INTTIME  J=  CLOCK? 

smauto:=o; 

TPOLL !  =  1 ; 

END  AUTO; 


KEYINMAIN 

s  1 

END  IF; 

INTPERIOD 

=  30 

END  IF; 

INTPERIOD 

=  20 

END  IF; 

INTPERIOD 

=  15 

END  IF; 

INTPERIOD 

=  10 

END  IF; 

INTPERIOD 

=  5 

END  IF; 

INTPERIOD 

=  1 

END  IF; 

FJNCTION  TPOLL! 

BINARY,  l; 

SENSE  (CLOCK); 

IF  CLOCK-INTTIHE  >  INTPERIOD  THEN  TPOLL:=l;  END  IF 

END  tpoll; 

TASK  pollauto; 


IF 

ACO/sO 

THEN 

POLL 

so; 

ISSUE 

(POLL); 

END 

IF; 

IF 

ACl/sO 

THEN 

POLL 

=  1 ; 

ISSUE 

(POLL); 

END 

IF; 

IF 

AC2/=0 

THEN 

POLL 

=2; 

ISSUE 

(POLL); 

END 

IF; 

IF 

AC3/=0 

THEN 

POLL 

=  3; 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

AC4/=0 

THEN 

POLL 

=  4; 

ISSUE 

(POLL); 

END 

IF; 

IF 

AC5/s0 

THEN 

POLL 

=5; 

ISSUE 

(POLL)  ; 

END 

IF; 

IF 

AC6/=0 

THEN 

POLL 

=6; 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

AC7/s0 

THEN 

POLL 

=  7; 

ISSUE 

(POLL); 

END 

IF; 

IF 

ACB/sO 

THEN 

POLL 

=  9; 

ISSUE 

(POLL) ; 

END 

IF; 

IF 

AC9/sO 

THEN 

POLL 

=  9; 

ISSUE 

(POLL) ; 

END 

IF; 

tpoll:=o; 

END  POLLAUTO; 


FJNCTION  MMSGDSPLYJ 
BINARY, 1 ; 

SENSE  (KEYCHAR); 
END  MMSGDSPLY; 

task  msgdsply; 
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77? 


i 


END 


MSG VO  T 
MSGVOT 
MSG VOT 
MSGVOT 
MSGVOT 
MSGVOT 
MSGVOT 
MSGVOT 
MSGVOT 
MSGVOT 

mmsgdsply:=o 

MSGOSPLY; 


=  MSG0 
=  MSG1 
=  MSG2 
=  MSG3 
sMSG'4 
sMSG5 
=  MSG6 
sMSG7 
sMSGfl 
sMSG9 


ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

ISSUE 


(MSGVOT)? 
(MSGVOT) ; 
(MSGVOT); 
(MSGVOT) ; 
(MSGVOT) ; 
(MSGVOT) ; 
(MSGVOT) ; 
(MSGVOT) ; 
(MSGVOT) ; 
(MSGVOT); 


F JNC T I  ON  MLOCATIOV: 
BINARY , 1 ; 

SENSE  (KEYCHAR) 
END  MLOCATION; 


TASK  location; 

MENU:=3;  ISSUE  (MENU); 

SENSE  (KEYCHAR); 

IF  KEYCHARsO  THEN  KE  Y  INMA I N :  =  1  ,*  END  IF; 

IF  KEYCHARsl  THEN  NEWPOS:=l;  END  IF; 

IF  KEYCHARr2  THEN  NErtP0S:=0;  TMLOC AT  ION;: 
MLOC A  T I  ON ; =0 ; 

LOCATION; 


l;  END  IF 


END 


FUNCTION  TMLOCATION: 
BINARY, i; 

SENSE (KEYCHAR); 
END  TMLOCATION; 


TASK  MANLOC; 

SENSE  (MANP3S); 
POSITION; sMANPOS; 

tmlocation:=o; 

END  MANLOC; 


F  JNC  T I  ON  MCLOCKSET: 
BINARY, l; 
SENSE(KEYCHAR); 
END  MCLOCKSET,* 


TASK  CLOCKSET; 

menu : sR ;  ISSUE  (MENU); 
SENSE  (KEYCHAR); 
MCLOCKSET : =0 ; 

END  CLOCKSET; 
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FJNCTION  MLOGINOUT: 

BINARY  ,  1 ? 

SENSE  (KEYCHAR); 

END  MLOGINOUT; 

TASK  LOGINOUT; 

MENU:=5;  ISSUE  (MENJ)J 
SENSE  (KEYCHAR); 

IF  KEYCHARsO  THEN  KE Y INMA IN : = 1 ;  END  IF; 
IF  KEYCHARsl  THEN  TLOGINjst;  END  IF; 

IF  KE YCHAR=2  THEN  TLOGOUT:=l;  END  IF; 
MLOGINOUT :  =  0 ; 

END  LOGINOUT; 


FJNCTION  TLOGIN J 
BINARY ,  1 ; 
SENSE(KEYCHAR); 
END  TLOGIN; 

TASK  LOGIN; 


acnumjso; 


SENSE 

(ACNUM) ; 

IF 

NEXT  AC  =  0 

AND 

ACOsO 

THEN 

ACO 

sacnum; 

END 

IF 

IF 

NExTACsl 

AND 

AC  1  =0 

THEN 

AC  1 

=ACNUM; 

END 

IF 

IF 

NEXT  AC=2 

AND 

AC2  =  0 

THEN 

AC2 

=ACNUM; 

END 

IF 

IF 

NEXT  AC=3 

AND 

AC  1  =  0 

THEN 

AC3 

sacnum; 

END 

IF 

IF 

NEXTAC=a 

AND 

AC«  =  0 

THEN 

AC« 

=acnum; 

END 

IF 

IF 

NEXTAC=5 

AND 

AC5  =  0 

THEN 

AC5 

sACNUM; 

END 

IF 

IF 

NEXT  AC  =  6 

AND 

AC6  =  0 

THEN 

AC6 

=acnum; 

END 

IF 

IF 

NEXTAC=7 

AND 

AC  7  =  0 

THEN 

AC7 

sacnum; 

END 

IF 

IF 

NEXTAC=8 

AND 

AC8  =  0 

THEN 

ACS 

sacnum; 

END 

IF 

IF 

NEXTAC=9 

AND 

AC9  =  0 

THEN 

AC9 

sacnum; 

END 

IF 

NEX 

TAC ; =NEX  T  AC  +  1 

• 

9 

IF  NEXTACslO  THEN  NEXTAC:=0;  END  IF; 


TLOG I N : =0 ; 
END  LOGIN; 


FJNCTION  TLOGOUT: 

BINARY,  1  ,* 

SENSE (KEYCHAR); 
END  TLOGOUT; 


TASK  logout; 

ACNUMjsO; 

SENSE  (ACNUM); 

IF  ACOsACNUM  THEN  AC0;=0;  END  IF; 
IF  AC1=ACNUM  THEN  AC0:=1;  END  IF; 
IF  AC2=ACNUM  THEN  AC0:=2;  END  IF; 
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IF 

AC3=ACNU^ 

THEN 

AC0:=3; 

END 

IF 

IF 

AC«  =  ACNU*! 

THEN 

ACO : sa; 

END 

IF 

IF 

AC5=ACNU^ 

THEN 

AC0:=5; 

END 

IF 

IF 

AC6=ACNUM 

THEN 

AC0:=6; 

END 

IF 

IF 

AC7sACNUvl 

THEN 

AC0;=7; 

END 

IF 

IF 

ACBsACNU^ 

THEN 

AC0;=8; 

END 

IF 

IF 

AC  9s AC  NU^ 

THEN 

ACO  J  =9 ; 

END 

IF 

tlogoutjso; 

E MO  LOGOUT; 


FJNCTION  POSCH: 

BINARY,  l; 

SENSE  (NEWPOS); 

IF  NEWPO$=l  THEN  POSCH:=l;  END  IF,* 
END  POSCH; 

TASK  posupdate; 

SENSE  (POSITION); 

posch:=o; 
end  posupdate; 


FJNCTION  MSGIN: 

binary,  i; 

SENSE  (MSGREADY)  ,* 

IF  MSGREADY=1  THEN  *SGIN:=i;  END  IF; 
END  MSGIN; 

task  msgstore; 


SENSE  MESSAGE); 
ISSUE  MSGRCVD); 


IF 

NEXTMSG=0 

THEN 

ACO 

sMESSAGEj 

END 

IF 

IF 

NEXTMSGsl 

THEN 

AC  1 

message; 

END 

IF 

IF 

NEXTMSGs2 

THEN 

AC2 

MESSAGE; 

END 

IF 

IF 

NEXMSG=3 

THEN 

AC  3 

message; 

END 

IF 

IF 

NEXTNS3=4 

THEN 

ACU 

message; 

END 

IF 

IF 

NEXMSG  =  5 

THEN 

AC5 

MESSAGE; 

END 

IF 

IF 

NEXTMSGsS 

THEN 

AC6 

message; 

END 

IF 

IF 

NEXMSG  =  7 

THEN 

AC  7 

MESSAGE, 

END 

IF 

IF 

NEXTMSGsB 

THEN 

Ace 

MESSAGE 

END 

IF 

IF 

NEXMSG=9 

THEN 

AC9 

MESSAGE, 

END 

IF 

NE 

XTMSGjsNEXTMSGH 

• 

$ 

IF 

NEXMSG=10 

THEN 

NEXTMSGjsO; 

END 

IF; 

END  MSGSTORE; 


CONTINGENCY  LIST 

WHEN  KEYINMAIN  ; 


100  HS  DO  KBINPHAIN 


WHEN  MINT4C  :  100  MS  00  INTAC; 

WHEN  SMMANUAL  :  100  MS  00  MANUAL; 

WHEN  SMAUTO  :  100  MS  00  AUTO; 

WHEN  TPOLL  :  100  MS  DO  POLLAUTO; 

WHEN  MLOCATION  :  100  MS  DO  LOCATION; 

WHEN  TMLOCATION:  100  MS  00  MANLOC; 
WHEN  POSCH  :  1 0 0 0  MS  DO  PQSUPDATE 

WHEN  MMSGOSPLY  :  100  MS  DO  MSGDSPLY; 

WHEN  MCLOCKSET  :  100  MS  DO  CLOCKSET; 

WHEN  MLOGINOUT  :  100  MS  DO  LOGINOUT; 

WHEN  TLOGIN  :  100  MS  DO  LOGIN; 

WHEN  TLOGOUT  :  100  MS  DO  LOGOUT; 

WHEN  MSGIN  :  100  MS  DO  MSGSTORE; 


APPENDIX  C 


CSDL.PAS  QJTPUT 
PRIMITH/E  LISTING 


P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

* 

P 

P 

P 


It .generated 
2s.nai  n 
16s. var 
1 7s . var 
18s. var 
19s. var 
20s . var 
21s.  var 
22s. var 
23s. var 
29s . var 
25s . var 
26s . var 
27s . var 
28s. var 
29s . var 
30s . var 
31s. var 
32s .  var 
33s. var 
39s. var 
35s. var 
36s. var 
37s. var 
38s .var 
39s . var 
90s . var 
91 s  .var 
92s . var 
93s . var 
99s  .var 
95s. var 
96s. var 
97s  .var 
98s . var 
99s . var 
50s . var 
51s. var 
52s .var 
53t .generated 


for:  SYSTEM 

( : : ) 

(KEYINMAIN:8,0) 
(MINTAC:8,0) 
(MMSGDSPLY:8,0) 
(MLOC AT  ION : 9 »  0  ) 
(M:LOCKSET:8,0) 
(ML0GIN0UT : 8»  0 ) 
(SMMANUAL  :  8  #  0  ) 

( SMAUTO : 8 »  0 ) 
(AC0:8,0) 

( AC  1 : 8  f  0  ) 
(AC2:8,0) 
(AC3:8,0) 
(AC9:8,0) 
(AC5:8,0) 
(AC6:8,0) 

( AC7 :8, 0 ) 

( ACS :  8  *  0 ) 

( A C9 : 8 »  0 ) 

(INTPERIOD:8,0) 

(MSG0:8,0) 

( MSG  1 : 0  f  0 ) 

(MSG2 : 8,0) 
(MSG3:8,0) 
(MSG9:8,0) 

( MSG5 : 8 »  0 ) 

(MSG6 : 8 »  0 ) 

(MSG7 : 8 #  0 ) 

( MSGS : 8,0) 
(MSG9*8,0) 
(TMLOCATION:8,0) 
(TL0GIN: 1 ,0) 

(  T  LOGOUT : 1 r  0 ) 

( NEXTMSG : 8  »  0 ) 
(NEXTACJ8, 0) 
(T=»0LL:  1 ,0) 

( C DUNT : 8 »  0 ) 
(CL0CK:8,0) 
for:  KEYINMAIN 


*  *i 


59s . oroc  (KEYINMAIN:) 

55s . sensecond  (KEYFLG:1) 

56s. eq  (3T01#KEYFLGriC01:3»l»8) 


57s.jmof  (3T01, 301:8) 

58s. assign  (KEYINMAIN,3C01 : 1 , 8) 
59s. ioc  (301:) 

60s. ex i toroc  (KEYINMAIN,KEYINMAIN: ) 
6 1 t . generat ed  for:  KBINPMAIN 


62s . oroc 
63s. assign 
64s . i ssuevent 
65s. sensecond 
66s. eq 
67s. j  mpf 
68s. assign 
69s. i oc 
70s. eg 
71s. jupf 
72s.assi gn 
73s. 1 oc 
74s .  eq 
75s. jmpf 
76s . assi gn 
77s. 1 oc 
78s. eq 
79s . j  mof 
80s. assi gn 
81s. Ioc 
82s. eq 
83s . j  mpf 
84s. assi gn 

85s . 1 oc 
86s . ass i gn 
87s. ex i t  d  r  oc 
88t .generated 


(K9INPMAIN*. ) 
(MENU,3C02:8,8) 

( MENU : 8 ) 

( KE YCHAR : 8 ) 

(3T01 ,KEYCHAR,3C01 :8,8,8) 
(3T01 ,302:8) 

(MINTAC.3C01 :8.8) 

(302: ) 

(3T01,KEYCHAR,3C03:8,8,8) 
(3701,303:8) 
(MMSGDSPLY,3C01 :8,8) 

(303: ) 

(3T01 ,KEYCHAR,3C04:8,8,8) 
(3T01, 304:9) 
(MLOCATI0N,3C01 :8,8) 

(304: ) 

(3T01 ,KEYCHAR,3C05:9,8,8) 
(3T01, 305:8) 
(MCL0CKSET,3C01 :8,8) 
(305:) 

(3T01,KEYCHAR,3C06:8,8,8) 
(3T01, 306:8) 
(ML0GIN0UT,3C01 :8,B) 

(306: ) 

(KEYINMAIN,3C02: 1,8) 
(KBINPMAIN, KBINPMAIN: ) 
for:  MINTAC 


P  89s. oroc  (MINTaC:) 

P  90s. sensecond  (KEYCHAR:8) 

P  91s.exitDroc  (MINT AC , MI  NT  AC : ) 

P  92t .generated  for:  INTAC 

p  93s. oroc  (INTAC:) 

P  94s. assign  (MENU, SCO  1 : 8 , 8 ) 

P  95s . i ssuevent  (MENU:8) 

P  96s • sensecond  (KEYCHAR:8) 

P  97s. eo  (3T01,KEYCHAR,3C02:8,8,8) 

P  9Rs.jmof  (3T01, 307:8) 

P  99s. assign  (KEY INMAIN, SCO  1 : 1 , 8 ) 
p  100s. Ioc  (307:) 

P  tOls.eq  (3T01,KEYCHAR,3C01 :R,6,8) 

P  102s. j  mof  (3T01, 308:8) 

P  103s. assign  ( SMMANtJAL,  3C0 1 : 8, 8 ) 

P  104s. Ioc  (308:) 


,  V  %’  •  1  V  *■' 
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P  105s.  eg  (9101»KEYCHAR,9C03:8»8>8) 

P  106S. jmof  (9101,909:8) 

P  107s. assign  ( SMAU10, 9C0 1 : 8 , 8) 

P  108s. loc  (909: ) 

P  109s. assign  (MIN1AC,9C02: 1 ,8) 

P  llOs.exitoroc  ( I  Ml  AC , INT AC  : ) 

P  1 1 1 t . generated  for:  SMMANJAL 
******************** 

P  1 IPs.oroc  (SMMANUAL:) 

P  1 1 3s. sensecond  (KEYCHAR: 8) 

P  1 14s.exi toroc  ( SMMANUAL, SMMANUAL : ) 

P  1 15t .generated  for:  MANUAL 
******************** 

P  116s. oroc  (MANUAL:) 

P  117s. ne  (9T01#AC0»9C 02:8,8, 8) 

P  118s. jmof  (9101,910:8) 

P  119s. assign  (P3LL , 9C02: 8 , 8 ) 

P  120s. i ssuevent  (P3LL:8) 

P  121s. loc  (910:) 

P  122s. ne  (91 0 1 , AC  1 , 9C02: 8 , 8 , 8 ) 

P  123s. jmof  (9101,911:8) 

P  124s. assign  (P3LL,9C01 :8,8) 

P  125s. i ssuevent  (P3LL:8) 

P  126s. loc  (911:) 

P  127s. ne  ( 91 0 1 , AC2, SC02 : 8, 8 , 8 ) 

P  128s. jmof  (9101,912:8) 

P  129s. assign  (P3LL , 9C03 : 8, 8) 

P  1 30s . i ssuevent  (P3LL:8) 

P  131s. loc  (912:) 

P  132s. ne  (910 1 , AC3, $C02: 8, 8, 8) 

P  133s.jmpf  (9101,913:8) 

p  134s. assign  (P3LL,9C04:6,8) 

P  1 35s. i ssuevent  (P3LL:8) 

P  136s. loc  (913:) 

P  137s. ne  (9T0 1 , AC4 , 9C02: 8, 8 , 8 ) 

P  138s. jmof  (9101,914:8) 

P  139s. assign  (P3LL , 9C05 : 8 , 8 ) 

P  1 40s • i ssuevent  (P0LL:8) 

P  14ls. loc  (914: ) 

p  142s. ne  (9101 ,AC5, 9C02:8,8,8) 

P  143s. jmof  (9101,915:9) 

p  144s. assign  (P3LL ,9C 06:8,8) 

P  1 45s. i ssuevent  (P3LL:8) 

P  146s. loc  (915:) 

P  147s. ne  (9T01,AC6,9C02:8,8,8) 

P  148s. jmof  (9T01, 916:8) 

P  149S. assign  (P3LL,9C07:8,8) 

P  150s. i ssuevent  (P3LL:8) 

P  151s. loc  (916:) 

P  152s. ne  (910 1 , AC  7, 9C02 : 8, 8 , 8 ) 

P  153s. jmof  (9101,917:8) 


p 

154s. assi gn 

( POLL ,  9C  08 : 8 , 8 ) 

p 

1 55s • i ssuevent 

(POLL ! 8) 

p 

156s. 1 oc 

(917:) 

p 

157s. ne 

(9701, AC8, 9C02:8,8,8) 

p 

158s. jmof 

(9701/918:9) 

p 

1 59s . ass i gn 

(POLL #  9C09 : 8 / 8 ) 

p 

1 60s . 1 ssuevent 

(POLL : 8 ) 

p 

161s. 1 oc 

(918: ) 

p 

162s. ne 

(9T01/AC9,9C 02:8/8/8) 

p 

1 63s • j  wof 

(9T01, 919:8) 

p 

164s. assi gn 

(POLL/ 9C10:8,8) 

p 

165s. i ssuevent 

(P0LL:8) 

p 

1 66s • 1 oc 

(919:) 

p 

167s. assign 

(SMMANUAL,9C02:l,6) 

p 

168s. exi toroc 

(M4NUAL, MANUAL: ) 

p 

1 69t .generated 

for:  SMAUT0 

******************** 

p 

1  70s . oroc 

(SMAUTO: ) 

p 

1  7 1  s  •  sensecond 

( KE YCHAR : 8 ) 

p 

172s. exi toroc 

(SMAUT0/SMAUT0:) 

p 

1 73t .generated 

for:  AUTO 

******************** 

p 

1 74s. oroc 

(AJTO:) 

p 

1  75s. assign 

(MENU, 9C03: 6/ 8 ) 

p 

176s. i ssuevent 

(MENU : 8 ) 

p 

1 77s. sensecond 

(KEYCHAR:8) 

p 

178s. eq 

(9T01/KEYCHAR/9C 02:8/8/8) 

p 

1 79s • j  mof 

(9T01/ 920:8) 

p 

180s. assign 

(KEYINMAIN,9C01:1,9) 

p 

181s. 1 oc 

(920:) 

p 

I82s.eq 

(9T01/KEYCHAR/9C01 :8,8,8) 

p 

163s. jmof 

(9701/921:6) 

p 

184s. assign 

(INTPERI0D,9C11:8,8) 

p 

185s. 1 oc 

(921:) 

p 

1 86s. eq 

(9T01 ,KEYCHAR,9C03:8,8,8) 

p 

1 87s • j  mDf 

(9T01 ,922:8) 

p 

1 88s. ass i gn 

(INTPERI0D/9Cl2:8/8) 

p 

189s. loc 

(922:) 

p 

190s. eq 

(9701,KEYCHAR,9C04:8,8,8) 

p 

191s. jmpf 

(9T01 ,923:8) 

p 

192s. assi gn 

(nTPERI0D,9Cl  3:8,8) 

p 

193s. loc 

(923:) 

p 

1 94s. eq 

(9T01,KEYCHAR,9C05:8,8,8) 

p 

195s. jmpf 

(9T01, 924:8) 

p 

196s. assign 

(INTP£RI0D,iC14:8/8) 

p 

197s. loc 

(924: ) 

p 

198s. eq 

(9T01,KEYCHAR,9C06:8/8,8) 

p 

1 99s . j  mof 

(9T01, 925:8) 

p 

200s. assi gn 

(INTPERI00/9C 06:3,8) 

p 

201s. loc 

(925:) 

p 

202s. eq 

(9T01,KEYCHAR,9C07:8/8,8) 

P  203s. jmpf  OTOl#  92  6:8) 

P  204s. assign  ( I 9TPER IOD, 3C0 1 : 8 , 8 ) 

P  205s. loc  026:) 

P  206s. assign  (  mT  IM£ # CLOCK :  8#  8 ) 

P  207s. assign  (S'iAUTO,  3C02  :  1 . 8  ) 

P  208s. assign  (TPOLL # 9C0 1 : 1 , 8  ) 

P  209s. ex i toroc  (AJTO»AUTQ:) 

P  21 Ot .generated  for:  TPOLL 
******************** 

P  211s. oroc  (TPOLL:) 

P  21 2s .sub  OT01,CLOCK#INTTIME:8#8#8) 

P  213s. gt  (3T01#3T01  #  INTPERI OD: 8 # 8, 8 ) 

P  21«s.jmof  OTOl# 327:8) 

P  215s. assign  ( TPOLL # 3C0 1 : 1 , 8 ) 

P  216s. loc  027:) 

P  21 7s. ex i toroc  ( TPOLL # TPOLL :  ) 

P  218t .generated  for:  POLLAUTO 
******************** 

P  219s. oroc  (PDLLAUTO: ) 

P  220s. ne  OTO  1 ,  ACO ,  3C02 :  8  #  8  #  8 ) 

P  221 s . j  mof  OTOl  ,328:6) 

P  222s. assign  (P0LL#9C02:8#8) 

P  223s. i ssuevent  (P0LL:8) 

P  224s. loc  (928:) 

P  225s  •  ne  OT 0 1 ,  AC  1 »  3C02:  8 »  8  #  8  ) 

P  226s. jmof  (3T01#  329 : 8 ) 

P  227s. assign  (POLL # SCO  1 : 8 , 8 ) 

P  228s . i ssuevent  (P0LL:8) 

P  229s. 1 oc  (329:) 

P  230s. ne  OTO 1 ,  AC2#  3C02: 8#  8 # 8 ) 

P  231s.  jmof  OTOl#  330:8) 

P  232s. assign  (P0LL#3C03:8,8) 

P  233s. i ssuevent  (P0LL:8) 

P  234s. loc  (330:) 

P  235s. ne  (3T0 1 , AC 3, 3C02: 8# 8 # 8 ) 

P  236s  .  jmof  OTOl, 331:8) 

P  237s. assign  (P0LL#3C04:8#8) 

P  238s. i ssuevent  (PQLL:8) 

P  239s. loc  (331:) 

P  240s.ne  OTO  1 ,  AC4, 3C02:  8#  8#  8) 

°  24 1  s .  j  mof  OTOl,  332:8) 

P  242s. assi gn  (POLL, 3C05 : 8 , 8 ) 

P  243s. i ssuevent  (P0LL:8) 

P  244s. loc  032:) 

P  245s. ne  (9T0 1 , AC5# 3C02 : 8# 8 # 8 ) 

P  246s. jmof  (3T01#933;8) 

P  247s. assign  (POLL# 9C06 : 8 # 8 ) 

P  248s. i ssuevent  (P0LL:8) 

P  249s. loc  033:) 

P  250s. ne  OTO  1  #  AC6#  9C02 :  8#  8 #  8 ) 

P  251s. jmof  (3701,334:8) 


P  252s 
P  253s 
P  254s 
P  255s 
P  256s 
P  257s 
s®  258s 
P  254s 
P  260s 
P  261s 
P  262s 
P  263s 
P  264s 
P  265s 
P  266s 
P  267s 
P  268s 
P  269s 
P  270s 
P  271s 
P  272t 
****** 
P  273s 
P  274s 
P  275s 
P  276t 
****** 
P  277s 
P  278s 
P  279s 
P  280s 
P  281s 
P  282s 
P  283s 
P  284s 
P  285s 
P  286s 
P  287s 
P  288s 
P  289s 
P  290s 
P  291s 
P  292s 
P  293s 
P  294s 
P  295s 
P  296s 
P  297s 
P  298s 
P  299s 
P  300t 


.assign 
• i ssuevent 

•  1  oc 
.ne 

•  jmof 
.assign 

. i ssuevent 
.  1  oe 

•  ne 

.  j  mof 
•assi gn 
. i ssuevent 
.  1  oe 
.ne 
■  i  mof 
•assign 
. i ssuevent 
.  1  oc 
. ass i gn 

•  exi toroe 

•  generated 
*********** 

•  oroc 

. sensecond 
.exi tproc 
.generated 
*********** 

•  oroc 
•assign 

. i ssuevent 
•assi gn 
• i ssuevent 
•assi gn 
• i ssuevent 
•assign 
. i ssuevent 
•assi qn 
. i ssuevent 
•assi gn 
. i ssuevent 
•assi gn 
• i ssuevent 
•assign 
. i ssuevent 
•assign 
• i ssuevent 
•assign 
• i ssuevent 
•assign 
•exi toroe 
•generated 


(P3LL,3C07:8,8) 

(P3LL:8) 

034:) 

OT01,AC7,9C02:8,8,8) 
OTOl  ,335:8) 
(P3LL,aC08:8,8) 

(POLL : 8 ) 

035:) 

OTOl,  AC8,£C02:8, 8,8) 
OTOl, £36:8) 

(P3LL , SC  09 ; 8, 8 ) 
(P0LL:8) 

(936:) 

OT01,AC9,£C02:8,8,8) 
OTOl,  £37:8) 

(POLL , £C 10:8,8) 

(POLL : 8 ) 

037: ) 

( TPOLL , 3C02:1,8) 
(POLLAUTO,POLLAUTO: ) 
for:  MMSGDSPLY 
*** 

(MMSGDSPLY: ) 
(KEYCHAR:8) 
(MMSGDSPLY, MMSGDSPLY: 
for:  MSGDSPLY 
**  * 

(MSGDSPLY: ) 

(MSGVDT, mSGO : 8, 8  ) 
(MSGVDT : 8 ) 
(MSGVDT,MSG1 :8,8) 

( MSGVDT : 8 ) 

(MSGVDT, MSG2:8, 8) 

( MSGVDT : 8 ) 
(MSGVOT,MSG3:8,8) 
(MSGVDT : 8 ) 

(MSGVDT, MSG4:8, 8) 
(MSGVDT:8) 

(MSGVDT, MSS5:8, 8) 
(MSGVOT : 8 ) 

(MSGVDT, MSG6:8, 8) 
(MSGVDT : 8 ) 

(MSGVDT, MSG7:8, 8) 

( MSGVDT ; 8 ) 

(MSGVDT, MSG8:8, 8) 
(MSGVDT : 8 ) 

(MSGVDT, MS59:8, 8) 
(MSGVDT : 8 ) 

(M MSGDSPLY  » iC02 : 1 , 8  ) 
(MSGDSPLY, MSGDSPLY: ) 
for:  ML  OCA  T I  ON 


******************** 

P  301s. oroc  (MLOCATION:) 

P  302s.sensecond  (KEYCHAR:8) 

P  303s. ex i tproc  (MLOCATION, MLOCATION: ) 

P  304t .generated  for:  LOCATION 
******************** 

P  305s. oroc  (LOCATION:) 

P  306s. assign  (MENU , 3C04 : 8 , 8 ) 

P  307s. i ssuevent  (MENU:8) 

P  308s . sensec ond  (KEYCHAR:8) 

P  309s. eq  (3T01,KEYCHAR,3C02:8,8,8) 

P  310s. j  mof  (iTOl, 338:8) 

P  311s. assign  (KE Y INMAIN , SCO  1 : 1 , 8 ) 

P  312s. loc  (338:) 

P  313s. eq  (3T0 1 , KEYCHAR , 3C0 1 : 8 , 8, 8 ) 

P  314s. jmof  (3T01, 339:8) 

P  315s. assign  (NErtPOS, 3C0 1 : 1 , 8) 

P  316s. loc  (339:) 

P  317s. eq  (3T01, KEYCHAR, 3C 03:8,8, 8) 

P  318s. jmof  (3T01, 340:8) 

P  319s. assign  (NErtPOS, 3C02: 1 ,8) 

P  320s. assign  (T«LOCATION,dC01 :8,8) 

P  321s. loc  (340:) 

P  322s. assign  (MLOCATION, 3C02: 1 ,8) 

P  323s. exi toroc  (LOCATION, LOCATION: ) 

P  324t. generated  for:  TML0CATI0N 
******************** 

P  325s. oroc  ( T^LOC AT  ION : ) 

P  326s . sensecond  (KEYCHAR:8) 

P  327s. ex i tproc  (T ML 0CATI0N,T MLOCATION: ) 

P  328t . generated  for:  MANL0C 
******************** 

P  329s. oroc  (MANLOC:) 

P  330s. sensecond  (MANP0S:8) 

P  331s. assign  (P0SI T ION, MANPOS : 8, 8 ) 

P  332s. assign  ( TMLOC AT  ION, 3C02 : 1 , 8) 

P  333s. exi tproc  (MANLOC , MANLOC : ) 

P  334t .generated  for:  MCLOCKSET 
******************** 

P  335s. oroc  (MCLOCKSET:) 

P  336s . sensecond  (KEYCHAR:8) 

P  337s. exi toroc  (MCLOCKSET, MCLOCKSET: ) 

P  338t • generated  for:  CL0CKSET 
******************** 

P  339s. oroc  (CLOCKSET:) 

P  340s . ass i qn  (MENU,3C05:8,8) 

P  34 1 s . i ssuevent  (MENU:8) 

P  342s. sensecond  (KEYCHAR : 8 ) 

P  343s. assign  (MCLOCKSET , iC02 : 1 , 8 ) 

P  344s. exi toroc  (CLOCKSET , CLOCKSET : ) 

P  345t .generated  for:  ML0GIN0UT 
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******************** 

P  346s. oroc  (MLOGINOUTs) 

P  347s . sensecond  (KEYCHAR:8) 

P  348s. ex i topoc  (MLOGINOUT,MLOGINOUT: ) 
P  349t . generated  for:  LOGINOUT 
******************** 


P  350s. oroc 
P  351s. assign 
P  352s. i ssuevent 
P  353s . sensecond 
P  354s. eq 
P  355s.jmof 
P  356s. assign 
P  357s. loc 
P  358s. ea 
P  359s • j  mof 
P  360s. assign 
P  361s. loc 
P  362s. eq 
P  363s. jmof 
P  364s. assign 
P  365s. loc 
P  366s. assign 
P  367s. exi toroc 
P  368t .generated 


(LOGINOUT: ) 

( MENU, 9C06 :  8*8) 

(MENU:8) 

(K£ YCHAR : 8 ) 

(9T01,KEYCHAR,9C02:8,8»8) 
(9T01, 941:8) 
(K£YINMAIN,9C01:1,8) 

(941  : ) 

(9T01,KEYCHAR,9C01 :8,8,6) 
(9T01 .942:8) 

(TLOGIN, 9C01 : 1,8) 

(942: ) 

(9T01»KEYCHAR,9C03:8,8,8) 
(9T01, 943:8) 

( TL0G0UT » 9C0 1 : 1,8) 

(943:) 

(MLOGINOUT ,9C02:1,8) 
(LOGINOUT, LOGINOUT:) 
for:  TLOGIN 


******************** 


P  3b9s.oroc  (TLOGIN:) 

P  370s. sensecond  (KEYCHAR:8) 

P  371 s .ex i toroc  ( TLOGIN, TLOGIN: ) 
P  372t .generated  for:  LOGIN 
******************** 


P  373s. oroc 
P  374s. assign 
P  375s. sensecond 
P  376s. eq 
P  377s. eq 
P  378$. and 
P  379s. jmof 
P  380s. assign 
P  381s. loc 
P  382s. eq 
P  383s. eq 
P  384s. and 
P  385s. jmof 
P  386s. assign 
P  387s. loc 
P  388s. eq 
P  389s. eq 
P  390s. and 
P  391s. jmof 
P  392s. assign 


(LOGIN:) 

(ACNUM,9C02:8,8) 

(  ACNUM: 8 ) 

(9T01,NEXTAC,9C02:9,8,8) 
(9T02,AC0,9C02:8,8,8) 
(9T01,9T01,9T02:8,8,8) 
(9T01, 944:8) 

(AC0, ACNUM: 8, 8 ) 

(944: ) 

(9T01,NEXTAC,9C01 : 8 , 8 , 8 ) 
(9T02,AC1 ,9C02:8,8,8) 
(9T01,9T01,9T02:8,8,8) 
(9101,945:8) 

(AC1 ,ACNUM;8,8) 

(945:) 

(9T01,NEXTAC,9C03:9,8,8) 
(9T02,AC2,9C02:8,8,8) 
(9T01,9T01,9T02:8,R,8) 
(9T01 ,946:8) 

( AC2, ACNUM : 8 , 8 ) 
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P  393s. loc 
P  399s. eq 
P  395s. eq 
P  396s. and 
P  397s.jmof 
P  398s. assign 
P  399s. loc 
P  400s. eq 
P  401s, eq 
P  402s. and 
P  403s. jmof 
P  404s. assign 
P  405s. loc 
P  406s. eq 
P  407s. eo 
P  408s. and 
P  409s. jmpf 
P  410s. assign 
P  41  Is. loc 
P  412s. eq 
P  413s. eq 
P  414s. and 
P  4 1 5s . j mof 
P  416s. assign 
P  417s. loc 
P  418s. eq 
P  419s. eq 
P  420s. and 
P  421s. jmof 
P  422s. assign 
P  423s. loc 
P  424s. eq 
P  425s. eq 
P  426s. and 
P  427s. jmof 
P  428s. assign 
P  429s. loc 
P  430s. eo 
P  431s. eo 
P  432s. and 
P  433s. jmof 
P  434s. assign 
P  435s. loc 
P  436s, add 
P  437s. assign 
P  438s. eq 
P  439s. jmof 
P  440s. assign 
P  44ls. loc 
P  442s. assign 
P  443s. e* i tproc 


(5)46; ) 

OTOl , NEXT  AC, SC  04; 8, 8, 8) 
(9T02, AC3, SC02:8,B,8) 
(9T01,9T01,9T02:8,8,8) 
OT 01, 5)47;  8) 

(ACS, ACNUM:8,8) 

047; ) 

Of  01,  NEXT  AC,  SC  05;  8, 8, 8) 
OT02,AC4,i)C  02:8, 8,8) 
(9T01,ST01,9T02:8,8,8) 
OTO  1,5)48;  8) 

( AC4 , ACNUM ; 8 , 8 ) 

(348;  ) 

OT01,NEXTAC,9C06:S,8,8) 
OT02,AC5,iC02:8,8,8) 
OT01,ST01,ST02;8»B,8) 
OTO  1 , 949 ;  8  ) 

( AC5 , ACNUM ; 8 , 8 ) 

049: ) 

OT01,  NEXT  AC,  SC  07:  8, 8, 8) 
OT02,  AC6,  SC02:  8,8, 8) 
OT01,ST01,9T02:8,8,8) 
OT01, 950:8) 

( A  C6 , ACNUM : 8 , 8 ) 

050:  ) 

OT01,NEXTAC,3C08:8,8,8) 
OT02,AC7,SC02:8,8,8) 
(3T01,ST01,9T02:8,8,8) 
OTOl, 951:8) 
(AC7,ACNUV;8,8) 

051  :  ) 

(9T01,NEXTAC,9C09:8,8,8) 
( 9T02 , AC8 , 9C02:8,8,8) 
(9T01,9T01,9T02:9,8,8) 
OTOl,  952:8) 

(ACS, ACNUM;8,8) 

(952;) 

OTOl ,  NEXT  AC,  SCI  0:8, 8,8) 
(9T02,AC9,9C02:8,8,B) 

(9T 01, ST 01, ST 02:8, 9, 8) 
(ST01 ,953:8) 

( A  C9 , ACNUM : 8 , 8 ) 

(953:  ) 

OT01»NExTAC,9C0l:8,8,8) 
(NEXTACOTOl  :8,8) 

(3T01 , NEXT  AC, SC  14:8,8, 8) 
(ST01 ,954:8) 
(N£XTAC,3C02:8,8) 

(954:) 

( TL0GIN, 9C02: 1,8) 

(LOGIN, LOGIN: ) 


P  444t .generated  for:  TLOGOUT 


P  445s. oroc  (TLOGOUT:) 

P  446s . sensec ond  (KEYCHAR:8) 

P  447s. ex i toroc  ( TLOGOUT , TLOGOUT  : ) 

P  448t .generated  for:  LOGOUT 
******************** 

P  449s. oroc  (LOGOUT:) 

P  450s. assign  (ACNUM,3C02:8,6) 

P  451 s.sensecond  (ACNUM:8) 

P  452s. eq  OTOl.ACO, AC MUM :  8 , 8 , 8 ) 

P  453s. imof  OTOl, 355:8) 

P  454s. assign  (AC0,3C02:8, 8) 

P  455s. loc  055:) 

P  456s. eq  OT01,AC1#ACNUM:8,8,8) 

P  457s.  jmof  OT 0  1 ,  956 :  8 ) 

P  458s. assign  ( ACO * 3C 0 1 : 8 , 8 ) 

P  459s. loc  056:) 

P  460s. eq  OT01,AC2,ACNUM:S,8,8) 

P  461s. jmof  OTOl, 357:8) 

P  462s. assign  ( AC0,3C03: 3# 8) 

P  463s. loc  (357:) 

P  464s. eq  OT01,AC3,ACNUM:8,8,8) 

P  465s. jmpf  OTOl,  358:8) 

P  466s. assign  ( ACO ,3C04 : 8, 8) 

P  467s. loc  058:) 

P  468s. eq  (3T01 »AC4, AC MUM: 8,3,8) 

P  469s. jmof  OTOl, 359:8) 

P  470s. assign  (ACO, 3C 05:8, 8) 

P  471s. loc  (359:) 

P  472s. eq  OTOl, ACS,  ACNUM:  8,3,8) 

P  473s. jmof  OTOl, 360:9) 

P  474s. assign  (AC0,3C06:8,8) 

P  475s. loc  (360:) 

P  476s. eq  OT01,AC6,4CNUM:8,8,8) 

P  477s. jmpf  OTOl, 361:8) 

P  478s. assign  (ACO,3C07:9,8) 

P  479s. loc  (361:) 

P  480s.eq  (3T01 , AC 7 , ACNUM ; 8 , 8 , 8) 

P  481s. jmof  OTOl, 362:9) 

P  482s. assign  (AC0,3C06:6,8) 

P  483s. loc  (362:) 

P  484s. eq  (3T01,AC8,ACNUM:8,9,8) 

P  485s. jmof  (3T01, 363:8) 

P  486s. assign  ( AC0,3C09: 8, 8) 

P  487s. loc  (363:) 

P  488s. eq  (3T01 , AC9, ACNUM: 8, 9, 8) 

P  489s. jmof  (3T01, 364:9) 

P  490s. assign  (AC0,3C10:8,8) 

P  491s. loc  (364:) 

P  492s. assign  (TLOGOUT ,3C02: 1 , 8) 


P  493s . ex i t oroc  (L3G0UT, LOGOUT: ) 

P  494t .generated  for:  POSCH 
******************** 

P  495s. oroc  (POSCH;) 

P  496s.sensecond  (NENPOS:l) 

P  497s. eq  (3T01 ,NEWP0S,3C01 :8, 1 ,8) 

P  498s. jmof  (ST01, 965:8) 

P  499s. assign  (P3SCH,3C01 : 1 , 8) 

P  500s. loc  (365: ) 

P  501s. exi toroc  (POSCH, POSCH: ) 

P  502t .generated  for:  P0SUP0ATE 
******************** 

P  503s. oroc  (POSUPOATE:) 

P  504s . sensecond  (POSITION:8) 

P  505s • ass i qn  (POSCH, 3C02: 1,8) 

P  506s .ex  1 toroc  (POSUPOATE, POSUPOATE: ) 

P  507t .generated  for:  MSGIN 
******************** 

P  508s. oroc  (MSGIN:) 

P  509s. sensecond  (MSGREADY:1) 

P  510s. eq  (3T01»MSGREADY,3C 01:8, 1,8) 

P  511s.  j<npf  ( 3T  0  1 ,  366 :  8 ) 

P  512s. assign  (MSGIN , SCO  1 : 1 , 8 ) 

P  513s. loc  (366:) 

P  514s. exi toroc  (MSGIN, MSGIN: ) 

P  515t .generated  for:  MSGST0RE 
******************** 

P  516s. oroc  (MSGSTORE:) 

P  517s. sensecond  (MESSAGED) 

P  518s, i ssuevent  (MSGRCVD:1) 

P  519s. eq  (3T0 1 , NEXTMSG, 3C02: 8, 8, 8 ) 

P  520s. jmof  (3T01, 367:8) 

P  521s. assign  (AC0,MESSAGE:8,8) 

P  522s. loc  067:) 

P  523s. eq  UTOl, NEXTMSG, 3C01 :8,8,8) 

P  524s • jmof  CarOl » 368:8) 

P  525s. assign  ( AC1 , MESSAGE : 8, 8) 

P  526s. loc  (368:) 

P  527s. eq  (3T01,NEXTMSG,3C03:8,8,8) 

P  528s. jmpf  Carol, 369:8) 

P  529s. assign  ( AC2, MESSAGE : 8 , 8) 

P  530s. loc  (369:) 

P  531s. eq  UTOl, NEXTMSG, 3C0«:8,B, 8) 

P  532s. jmof  (3101,370:8) 

P  533s. assign  ( AC3, MESSAGE : 8 , 8 ) 

P  534s. loc  (370:) 

P  535s. eq  (3T0 1 , NEXTMSG, 3C05 : 8 , 8 , 8) 

P  536s. jmof  (3T01, 371:8) 

P  537s. assign  ( AC4 , MESSAGE : 8 , 8 ) 

P  538s. loc  (371:) 

P  539s. eg  (3T01,NEXTMSG,3C0b:8,8,8) 


P  540s. jmof  ( 9 TO  1  , 972 :  9 ) 

P  541s. assign  ( AC5, MESSAGE : 8 , 8 ) 

P  542s. 1 oc  (972:) 

P  543s. eq  ( 91 0 1 ,  NEXT  v(SG ,  a)C07  :  8, 8 , 8 ) 

P  544s.  jmof  (9101,973:8) 

P  545s. assign  ( AC6, MESSAGE : 8, 8 ) 

P  546s . 1 OC  ( 973 : ) 

P  547s.  eq  (9 TO  1 »  NEX T MSG, 9C08 : 8, 8 , 8) 

P  548s. jmof  (9(01 ,974:8) 

P  549s. assign  (AC7,MESSAGE:8,8) 

P  550s. loc  (974:) 

P  551s. eq  ( 9T0 1 , NE X TMSG, 9C09 : 8 , 8 , 8 ) 

P  552s. jmof  (9T01, 975:8) 

P  553s. assign  ( ACS, MESSAGE :8, 8) 

P  554s. loc  (975:) 

P  555s. eo  (9T01 , NEXTMSG , 9C 1 0 : 8 , 8 , 8 ) 

P  556s.j<nof  (9T01, 976:  3) 

P  557s. assign  ( AC9, MESSAGE : 8, 8 ) 

P  558s. loc  (976:) 

P  559s. add  (9T0 1 , NE XTMSG, 9C0 1 : 8, 8, 8 ) 

P  560s. assign  (NEXTMSG, 9T01 :8, 8) 

P  561 s.eq  (9T01 , NEXTMSG, 9C 14:8, 8, 8) 

P  562s. jmof  (9101,977:3) 

P  563s. assign  ( NEXTMSG , 9C02 : 8 , 8 ) 

P  564s. loc  (977:) 

P  565s. ex i tDroc  (MSGST0RE , MSGSTORE : ) 

P  566t .generated  for:  SYSTEM  ** 

P  567s. cons  (9C01,l:8) 

P  568s. cons  (9C02,0*.8) 

P  569s. cons  (9C03,2:8) 

P  570s. cons  ( 9C04 , 3 : 8 ) 

P  571s. cons  (9C05,4:8) 

P  572s. cons  (9C06,5:8) 

P  573s. cons  (9C07,6:8) 

P  574s. cons  (9C08,7:8) 

P  575s. cons  (9C09,8:8) 

P  576s. cons  (9C10,9:8) 

P  577s. cons  (9Cit,30:8) 

P  578s. cons  (9C12,20:8) 

P  579S. cons  OC  13, 15:8) 

P  580s. cons  (9C14,10:8) 

P  581 s . war  (9T01:8) 

P  582s. var  (9T02:8) 


APPENDIX  D 


NEWCSDL.FDR  OUTPUT 
LISTING  (SOFTWARE) 


-  intel  8086  realization  - 


SYS  1  4 

equ 

0D000H 

sysl  5 

equ 

0C000H 

sysl2 

equ 

0B000H 

svsl  t 

equ 

OAOOOH 

sysl  0 

equ 

9000H 

svs9 

equ 

8000H 

Sys8 

equ 

7000H 

sys7 

equ 

6000H 

sys6 

equ 

5000H 

sys5 

equ 

4000H 

SVS4 

equ 

3  0  ■)  0  H 

sys3 

equ 

2000H 

sys2 

equ 

I000H 

9 

9 

.this  routine  allows  for  a  IK  stack.  a  stack  that 
grows  larger  thar 

.this  will  overflow  into  the  data  segment.  to  allow  a 
larger  stack 

.the  ramotr  global  Drimitive  in  s.main  must  be  set  to 
the  required 

.value.  this  method  overlaos  64K  of  stack  segment  and 
fe '-IK  of  data 

; segment . 

9 


orq 

****** 

;  rom  address  oointer 

mov 

DX.03FFH 

Jset  data  segment 

base 

address 

mov 

DS.DX 

;to  102a 

mov 

OX . OOOOH 

.set  stack  segment 

base 

address 

mov 

SS.DX 

;to  0000H 

j  mo 

0F000H 

.jump  to  low 

address  of  highest 


org  ****** 
j  7)0  OEOOOH 

high  64K 

orq  1024 

/define  8-bit  storaqe 

orq  1025 

i  n  ram 

KEYINM:  do  0 

org  983046 

Idefine  8-bit  storage 

org  1023 

i  *7  ram 

MINTAC:  do  0 

org  983046 

/define  8-bit  storage 

org  1023 

i  n  ram 

MMSGDS:  do  0 

org  983046 

/define  8-bit  storage 

org  1023 

i  n  ram 

MLOCAT:  do  0 

orq  983046 

/define  8-bit  storage 

orq  1023 

i  n  ram 

MCLOCK;  do  0 

org  983046 

/define  8-bit  storage 

org  1023 

i  o  ram 

MLOGIN;  do  0 

orq  983046 

/define  8-bit  storage 

org  1023 

i  o  ram 

SMMANUs  do  0 

orq  983046 

/define  8-bit  storage 

orq  1023 

in  ram 

SMAJTO:  do  0 

org  983046 

/define  8-bit  storage 

org  1023 


;64K  block 

from  address  oointer 
; t  o  Bottom  of  2nd 

/block 

?8  bit  variable  KE.Y1NM 

from  address  oointer 
;8  bit  variable  MINTAC 

; rom  address  oointer 
;8  bit  variable  MMSGDS 

Jrom  address  oointer 
/8  bit  variable  MlOCAT 

Irom  address  oointer 
?8  bit  variable  MCLOCK 

Irom  address  oointer 
;8  bit  variable  MLOGIN 

from  address  oointer 
/8  bit  variable  SMMANJ 

Irom  address  oointer 
;8  bit  variable  SMAUTO 

from  address  oointer 
/8  bit  variable  AC0  in 


ram 


org 

983046 

• 

9 

r  on 

address  oointer 

» def i ne 

8-bit  storage 

org 

1023 

!  8 

b  i  t 

variable  A C I  in 

ram 

AC  1 : 

db  0 

org 

983046 

9 

9 

r  om 

address  oointer 

• def i ne 

8-bit  storage 

org 

1023 

*  8 

b  i  t 

variable  AC2  i n 

r  am 

AC2: 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

;def ine 

8-bi t  storage 

org 

1023 

•  8 

bi  t 

variable  AC3  in 

ram 

AC3: 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

; def i ne 

8-bit  storage 

org 

1023 

;  8 

b  i  t 

var i abl e  AC4  i n 

r  am 

acu: 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

fdefine 

8-bit  storage 

org 

1023 

}  8 

bi  t 

var i abl e  AC5  i n 

r  am 

AC5  S 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

•define 

8-bit  storage 

org 

1023 

•'8 

b  i  t 

variable  AC6  in 

r  am 

AC6 : 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

•define 

8-bit  storage 

org 

1023 

•  8 

bi  t 

variable  AC7  in 

ram 

AC7 : 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

•define 

8-bit  storage 

org 

1023 

;8 

b  i  t 

variable  AC8  i  n 

ram 

AC8: 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

•define 

8-bit  storage 

org 

1023 

» 8 

b  i  t 

var i abl e  AC9  i n 

r  am 

AC9: 

db  0 

org 

983046 

• 

9 

rom 

address  oointer 

•define 

8-bit  storage 

org 

1023 

;e 

bi  t 

variable  INTPER 

intper 


do 

orq 


0 

983046 


iron  address  pointer 


i  n  ram 


/define  8-bit  storage 

org  10  23 


in  ram 


i  n  ram 


1  n  ram 


i  n  ram 


i  o  ram 


in  ram 


l  n  ram 


i  n  ram 


i  n  ram 


MSGO:  do  0 

orq  983046 
/define  8-bit  storage 

org  1023 

MSG1:  do  0 

org  983046 

/define  8-bit  storage 

orq  1023 

MSG2 :  do  0 

orq  983046 

/define  8-bit  storage 

org  1023 

MSG3:  do  0 

org  983046 

/define  8-bit  storage 

org  1023 

MSG4 :  do  0 

org  983046 

/define  8-bit  storage 

org  1023 

MSGS:  do  0 

orq  983046 

/define  8-bit  storage 

org  1023 

MSG6 :  do  0 

org  983046 

/define  8-bit  storage 

orq  1023 

MSG7 :  db  0 

org  983046 

/define  8-bit  storage 

orq  1023 

MSG8:  do  0 

org  983046 

/define  8-bit  storaqe 

org  1023 

MSG9:  do  0 

org  983046 

/define  8-bit  storage 


85 


Z8  oit  variable  MSGO 

Zrom  address  oointer 
Z8  bit  variable  MSG1 

Zrom  address  oointer 
Z8  oit  variable  MSG2 

Zrom  address  oointer 
/ 8  bit  variable  MSG3 

Zrom  address  oointer 
Z8  bit  variable  MSG4 

Zrom  address  oointer 
/8  bit  variable  MSG5 

Zrom  address  oointer 
/8  bit  variable  MSG6 

Zrom  address  pointer 
Z8  bit  variable  MSG7 

Zrom  address  oointer 
Z8  bit  variable  MSG8 

Zrom  address  oointer 
Z8  bit  variable  MSG9 

Zrom  address  oointer 


.  %  \ 
Av.*' 


org 


1023 


;8  bit  variable  TMLUCA 


i  n 

ram 

TMLOC A ; 

do 

0 

org 

983046 

{rom  address  pointer 

Jdefine 

8-bit  storage 

org 

1023 

#8  bit  variable  TLOGIN 

i  n 

ram 

TLOGIN: 

do 

0 

org 

983046 

{rom  address  oointer 

/define 

8-bit  storage 

orq 

1023 

{8  bit  variable  TLOGOJ 

i  n 

ram 

TLOGOU: 

do 

0 

org 

983046 

{rom  address  oointer 

/define 

8-bit  storage 

org 

1023 

{8  bit  variable  NEXTMS 

i  n 

ram 

NEXTMS: 

do 

0 

orq 

983046 

{rom  address  oointer 

/define 

8 -bit  storage 

orq 

1023 

{8  bit  variable  NEXTAC 

i  n 

ram 

NEXTAC: 

do 

0 

org 

983046 

{rom  address  oointer 

/define 

8-bit  storage 

orq 

1023 

{8  bit  variable  TPOLL 

i  n 

ram 

TPOLL: 

db 

0 

org 

983046 

{rom  address  oointer 

/define 

8-bit  storage 

orq 

1023 

{8  bit  variable  COUNT 

i  n 

ram 

COUNT : 

db 

0 

orq 

983046 

{rom  address  oointer 

{define 

8-bit  storage 

org 

1023 

{8  bit  variable  CLOCK 

i  n 

ram 

CLOCK: 

db 

0 

• 

org 

983046 

{rom  address  oointer 

r 

{procedure  KEYINM 

3KEYINM; 

noo 

{entry  point  for 

KEYINM 

{ detect 

condi t i on* 

type  input 

( 1 6-bi t ) 

i  n 

Ax,o  ; 

sense  environmental  data 

mov 

KEYFLG, AX 

{test  for  equal  i  ty 

between  KEYFLG  and  SC01  (16-oit) 

mov 

ST01/1 

{presuppose  eauality 

mov 

AX/KEYFLG 

{fetch  KEYFLG 

cmo 

AX , SCO  1 

{compare  arguments 

j  z 

Sf4 

{ end  routine  if 

t  rue 


3T01 ,0 


not  equal  ,  ivfOl  s  0 


■nov 


{ branch  on  f al se 


HO  V 

AL, 3T01 

{load  value  into 

accumul at  or 

cmo 

AL,0 

{compare  to  zero 

j  2 

301 

{ j umo  to  301  if 

f  al se ( =  0 ) 

{assign 

value  of  one  variable  to 

another  variable 

( 16-bi t ) 

nov 

A  X , 9C0  1 

{assign  9C01 

■no  v 

KEYINM, AX 

{to  KEY INM 

301: 

■ 

noo 

{define  location  901 

9 

{procedure  K8INPM 

3KBINPM; 

noo 

{entry  Doint  for 

K3INPM 

5  ass  i  gn 

value  of  one  variable  to 

another  variable 

(16-bit) 

nov 

AX, 3C02 

{assign  9C02 

■nov 

MENU, AX 

{to  MENU 

/  send  condi t i on-t yoe  output  (16- 

bit) 

nov 

AX, MENU  l 

issue  control 

out 

0,  AX 

J  detect 

condi t i on- 

tyoe  input  (16 

-bit) 

i  n 

AX ,  1  {sense  environmental  data 

nov 

KEYCHA, AX 

? test  for  equal i ty 

between  KEYCHA  and  3C01  (16-bit) 

nov 

9T01 , 1 

{presuoDose  equality 

nov 

AX, KEYCHA 

{fetch  KEYCHA 

Cmo 

AX , 3C0 1 

{compare  arguments 

j  2 

$♦« 

{end  rout i ne  if 

t  rue 

nov 

3T01 ,0 

{not  equal ,  3T0 1  =  0 

{ oranch 

on  false 

nov 

AL ,  9T0 1 

{  l  oad  value  into 

accumul ator 

cmo 

AL  ,  0 

{compare  to  zero 

i  2 

302 

{ j  ump  to  302  if 

f alse(=0) 

{ assign 

value  of  one  variable  to 

another  variable 

(16-bit) 

nov 

A  X , 3C0  1 

{assign  3C01 

nov 

MINTAC, AX 

{to  MINTAC 

302: 

noo 

{define  location  302 

;test  for  equality 

between  KEYCHA  and  3C03  (Ib-oit) 

nov 

3T0 1 , 1 

{presuppose  equality 

nov 

AX, KEYCHA 

{fetch  KEYCHA 

cmo 

AX,  3C03 

{comoare  arguments 

j  2 

S*<4 

{ end  routine  if 

t  rue 


mo  v 

ST01,0 

; not  equal ,  STO 1  =  0 

{ oranch 

on  false 

mov 

AL,ST01 

{ 1 oad  value  into 

accumu I  at  or 

Cmo 

AL  *  0 

{compare  to  zero 

jz 

903 

{ j ump  to  SO 3  if 

f al se(=0) 

» ass i on 

value  of 

one  variable 

t  0 

another  variaole 

(16-bit) 

mow 

AX  f  SCO l 

{assign  SC01 

mo  v 

MMSGDS, AX 

Its  MMSGDS 

903: 

nop 

:define  location  S03 

{  test 

for  equality 

between  KEYCHA 

and  SC04  (16-oit) 

mov 

ST  0 1 , 1 

ipresupDOSe  equality 

mov 

AX#  KEYCHA 

J  fetch  KEYCHA 

Cmo 

AX,scoa 

{compare  arguments 

j  Z 

$  +  4 

{ end  rout i ne  if 

t  rue 

mov 

ST  0  1 , 0 

J  not  equal  ,  STO 1  =  0 

J oranch 

on  false 

mov 

AL  *  S  T  0  1 

; 1 oad  value  into 

ascumu 1  at  or 

cmo 

AL » 0 

{compare  to  zero 

jz 

S04 

{ j  umo  to  SO  4  if 

f al se(=0) 

{assign 

value  of 

one  variable 

to 

another  variable 

(16-bit) 

mov 

A  X , SCO  1 

{assign  SC01 

mov 

MLOCAT, AX 

{ to  MLOCAT 

aoa: 

noP 

{define  location  S04 

:test 

for  equality 

between  KEYCHA 

and  SC05  (  16-bi t ) 

mov 

ST01 , 1 

{presuppose  equality 

mov 

AX, KEYCHA 

{fetch  KEYCHA 

Cmo 

AX , SC05 

{comoare  arauments 

jz 

5  +  4 

{ end  routine  if 

t  rue 

mov 

ST  0  1 , 0 

{not  equal ,  STO 1  s  0 

; oranch 

on  false 

mov 

AL , ST  0  1 

{load  value  into 

accumul ator 

cmo 

AL ,  0 

{compare  to  zero 

i  z 

S05 

{ j  umo  to  SOS  if 

falseCO) 

Jassign 

value  of 

one  variable 

t  0 

another  variable 

( 16-bi t ) 

mov 

AX , SCO  1 

Jassiqn  SC01 

mov 

MCLOCK, AX 

{to  MCLOCK 

905: 

nop 

{define  location  SOS 

;  test 

for  equal i t y 

between  KEYCHA 

and  SC06  (1 b-oi t ) 

mov 

STO 1 , 1 

loresuooose  eouality 

mov 

AX, KEYCHA 

{fetch  KEYCHA 

cmo 

AX , 9C06 

;comoare  arguments 

j  z 

; end  routine  if 

t  rue 

mo  v 

at  TO  1 , 0 

» not  equal,  3T0  1  =  0 

/branch 

on  false 

•nov 

AL,ST01 

J  l  o  a  d  value  into 

accumul ator 

cmo 

AL » 0 

Jcomoare  to  zero 

j  z 

906 

J j  umo  to  306  if 

f alse(sO) 

; assi gn 

value  of 

one  variable 

t  0 

another  variable 

( 16-bi t ) 

mov 

A  X , 3C  0 1 

Jassiqn  9C01 

mov 

MLOGIN, AX 

Jto  MLOGIN 

90b: 

noo 

idefine  location  306 

; assign 

value  of 

one  variable 

t  0 

another  variable 

(16-bit) 

mov 

AX , 9C02 

;assiqn  9C02 

• 

mov 

KEYINM, AX 

Jto  KEY INM 

9 

Jorocedure  MINTAC 

9MINTAC 

:  noo 

Jentry  point  for 

MINTAC 

; detect 

condition 

-type  inout 

(16 

-bit) 

i  n 

AX, 2 

Sense  environmental  data 

• 

mov 

KEYCHA, AX 

« 

Jorocedure  INTAC 

9INTAC: 

noo 

Jentry  point  for 

INTAC 

; assi gn 

value  of 

one  variable 

to 

another  variable 

( Ib-bi t ) 

mov 

A  X , SCO  1 

Jassign  3C01 

mov 

MENU, AX 

Jto  MENU 

;send  condi t i on-t yoe  output  (lb-bit) 

mov  AX, MENU  tissue  control 

out  2, AX 


/detect  condi t i on-tyoe  inout  (16-bit) 

in  AX, 3  Jsense  environmental  data 

■nov  KEYCHA, AX 

/test  for  equality  between  KEYCHA  and  3C02  (lb-bit) 


mov 

3T01, 1 

Joresupoose  equality 

mov 

AX, KEYCHA 

J  fetch  KEYCHA 

cmo 

AX , 9C  02 

J coi>Dare  arguments 

j  z 

J  end  routine  if 

t  rue 

mov 

9T0  1 , 0 

J  not  equal /  3T  0 1  =  0 

Jbranch  on  false 

mov 

AL , 3T0  1 

J l oad  value  into 

Cmo 


accumul at  or 


AL,0 


Jcomnare  to  zero 


907 


j  umo  to  90  7  if 


j  z 

f alse(=0) 

Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

mov  AX,9C01  Jassign  9C01 

mov  KEY  INM,  AX  Jto  KEYING 

<5)07:  noo  Jdefine  location  907 


J  test  for  equality  between  KEYCHA  and  9C01  (lb-bit) 


■nov 

9T01,1 

Joresuooose  equality 

7IOV 

AX, KEYCHA 

,‘fetch  KEYCHA 

cmo 

AX,9C01 

Jcomoare  arguments 

j  z 

$♦4 

J end  rout i ne  if 

t  rue 

■nov 

9701,0 

J not  equal ,  9701  =  0 

;  branch 

on  false 

710  V 

AL , 970 1 

J 1 oad  value  into 

accumul at  or 

Cmo 

AL ,  0 

Jcompare  to  zero 

j  z 

908 

J j  umo  t  o  908  i f 

f al se(s0) 

Jassign 

value  of 

one  variable 

t  0 

another  variable 

(16-bit) 

TIOV 

A  X , 9C0 1 

;assign  9C01 

■nov 

SMMANU,  AX 

; to  SMMANU 

908: 

noo 

:define  location  908 

;test  for  equality  between  KEYCHA 

i  and  9C03  (lb-oit) 

TIOV 

9701,1 

Joresuooose  equality 

■nov 

AX, KEYCHA 

; fetch  KEYCHA 

Cmo 

AX , 9C05 

;comoare  arguments 

jz 

$  t  4 

J end  routine  if 

t  rue 

■nov 

9701,0 

? not  equal ,  9701  =  0 

Jbranch 

on  false 

TIOV 

AL , 970  1 

J 1 oad  value  into 

accumul ator 

cmo 

AL ,  0 

Jcomoare  to  zero 

i  z 

90  9 

J ) umo  to  909  if 

fal se(=0) 

; ass i qn 

value  of 

one  variable 

t  0 

another  variable 

(16-bit) 

■nov 

A  X , 9C  0 1 

Jassiqn  9C01 

TIOV 

SMAU70, AX 

Jto  SMAU70 

909: 

noo 

:define  location  909 

J ass i gn 

value  of 

one  variable 

to 

another  variable 

( 1 6-b i t ) 

TIOV 

A  x ,  9C02 

Jassian  9C02 

TIOV 

MIN7AC, AX 

Jto  MI N 7 AC 

9 

Jorocedure  SMMANU 

9SMMANU:  noo  Jentry  ooint  for 

SMMANU 


{  detec  t 

condi t i on-t yoe  input 

( 1 6-bi t ) 

i  n 

AX,  4 

• 

9 

sense  environmental  data 

• 

mov 

KEYCHA, AX 

9 

i Procedure  MANUAL 

smanual: 

noo 

r'entry  point  for 

MANUAL 

{  test 

i  f 

ACO  not 

equal  3C02 

then  3T01  =  1  (16-Oit) 

mov 

3T01 , 1 

; presuppose 

i  -tequal  i  ty 

mov 

AX, ACO 

{fetch  ACO 

cmo 

AX , 3C02 

{compare  arguments 

j  ne 

$  +  4 

{ end  rout i ne  if 

t  rue 

mo  v 

3T01 ,0 

»  equa 1 ,  3T  0 1  =  0 

; Drench 

on  false 

KOV 

AL , 3T0  1 

{ 1 oad  value  into 

accumul ator 

cmo 

Al,0 

{compare  to  zero 

i  z 

310 

{ i ump  to  310  if 

f el se(=0) 

? assi gn 

value  of 

one  variable 

to  another  variable 

(16-bit) 

mow 

AX, 3C02 

{assign  3C02 

mo  v 

POLL, AX 

;to  POLL 

»  send 

condi t i an- 

type  output 

(lb-bi t ) 

nov 

AX, POLL 

{issue  control 

out 

4,  AX 

310: 

noo 

:define  location  310 

» test 

i  f 

AC1  not 

equal  3C02 

then  3T01  s  1  (16-bit) 

mov 

3T01 , 1 

{presuppose 

i nequal i t  y 

mow 

AX, ACl 

{fetch  ACl 

cmo 

AX , 3C02 

{compare  arguments 

j  ne 

S  +  4 

{ end  routine  if 

t  rue 

mov 

3T0  1 , 0 

{equal ,  3T0 1  =  0 

; oranch 

on  falsa 

mov 

AL,3T01 

{ 1 oad  value  into 

accumul ator 

cmo 

AL,  0 

{compare  to  zero 

iz 

31  1 

{ j  ump  to  31 1  if 

fa1se(=0) 

{assign 

value  of 

one  variable 

to  another  variable 

( 16-bi t ) 

mov 

A  X  ,  3C  0 1 

{assign  3C0 1 

mov 

POLL, AX 

{to  POLL 

» send 

condi t i on- 

type  output 

(16-bit ) 

mov 

AX, POLL 

{issue  control 

out 

6,  AX 

311: 

nop 

{define  location  311 

91 


.  f  *.  -L 


{test  if  AC2  not 

eaual  9C02  then 

ST  0 1  =  1  (16-bit) 

mov 

STO 1  , 1 

♦ Dresubpose 

i nequal i t  y 

tiov 

AX  ,  AC? 

{fetch  AC2 

cmo 

AX,3C02 

('comeare  arguments 

j  ne 

*♦4 

♦  end  routine  if 

t  rue 

i»ov 

3T01,0 

{  equa 1 ,  STO  1  =  0 

fOrancK  on  false 

DOV 

AL »  STO 1 

{  1  oad  value  into 

accumul ator 

Cmo 

AL » 9 

,'comoare  to  zero 

j  z 

312 

;  j  ump  to  SI  2  if 

fa1se(=0) 

♦assign  value  of 

one  variable  to 

another  variable 

( 16-bi t ) 

mov 

A  X , SCO  3 

{assiqn  SC03 

TIOV 

POLL, AX 

J  t  o  POLL 

;send  condition- 

tyoe  outout  (16- 

bit) 

mov 

AX,  POLL 

i ssue  cont rol 

out 

8,  AX 

S12:  noo 

rdefine  location  312 

»test  if  AC3  not 

equal  SC02  then 

ST  0 1  =  1  (16-bit) 

■nov 

ST  0 1 , 1 

{ presuDDose 

i nequal i t  y 

■nov 

AX,  AC3 

♦fetch  AC3 

Cmo 

AX,iC02 

♦compare  arguments 

j  ne 

!♦« 

;end  routine  if 

t  rue 

•nov 

3T01 ,0 

{ equa 1 ,  STO 1  -  0 

JOranch  on  false 

nov 

AL,3T01 

J 1 oad  value  into 

accumul ator 

Cmo 

AL,0 

♦compare  to  zero 

j  z 

31  3 

{  j  umo  to  S 1 3  if 

false(=0) 

{assign  value  of 

one  variable  to 

another  variable 

(16-bit) 

■nov 

AX, 3C04 

{assiqn  3C04 

•nov 

POLL, AX 

{to  POLL 

;send  condition- 

t  yoe  out  Dut  (16- 

bit) 

mov 

A  X , POLL 

issue  control 

out 

1  0,  AX 

313:  noo 

: def i ne  location  313 

» test  if  AC4  not 

equal  3C02  then 

ST  0 1  =  1  (lfe-oit) 

mov 

3T  0 1 , 1 

♦presuppose 

i nequal i t  y 

mov 

AX, AC9 

{ fetch  AC4 

cmo 

AX , 3C  02 

{compare  arguments 

j  ne 

Sta 

{ end  routine  if 

t  rue 


9? 


nov  3T01,0  iequai  >  oHUl  =  0 

rOranch  on  false 

nov  AL,9T01  »  1  oad  value  into 

accumul at  or 

cmo  AL»0  Jcompare  to  zero 

j  z  914  »  j  umo  to  314  if 

f al se(=0) 

lassign  value  of  one  variable  to  another  variable 
( 16-bi t } 

■nov  AX,9C05  ^assign  9C05 

nov  POLL »  A  X  ;to  POLL 

;send  condition-type  output  (lb-bit) 

nov  Ax, POLL  /issue  control 

out  12, AX 

314:  nop  :define  location  o)l4 

; test  if  ACS  not  equal  9C02  then  3T01  s  1  (16-bit) 
nov  5>T  01,1  ;oresuDoose 

i nequal i t  v 


; equal ,  3T0 1  =  0 


t  rue 


nov 

3T0  1 , 1 

; oresuPDOse 

nov 

AX, ACS 

/fetch  AC5 

cmo 

AX,i)C02 

(’compare  arguments 

jne 

$  +  4 

; end  rout i ne  if 

nov 

false 

3T01 ,0 

J  equal ,  3T0 1  =  0 

nov 

AL,3T01 

i 1 oad  value  into 

cmo 

AL,0 

(Compare  to  zero 

j  z 

315 

r j  ump  to  915  if 

accumul ator 


false(=0) 

Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

nov  AX,a)C06  Jassiqn  3C06 

nov  POLL, AX  ;to  POLL 

;send  condi t i on-t yoe  output  (16-bit) 

nov  AX, POLL  Jissue  control 

out  14, AX 

315:  noo  : define  location  3 IS 

?test  if  AC6  not  eoual  3C02  then  3T01  s  1  (16-bit) 
nov  9T01,1  Joresucpose 

i nequal i t  y 

nov  AX,AC6  Jfetch  ACb 

cmo  AX,3C02  1  compare  arguments 

jne  St4  ;end  routine  if 

t  rue 

nov  9T0l,0  Jeaual,  3T01  =  0 

loranch  on  false 

nov  AL,3T01  Jload  value  into 

accumul ator 

cmo  AL,0  icompare  to  zero 

jz  316  ljumo  to  916  if 

f al se(sO) 


; ass i gn 

value  of 

one  var i ao 1 e 

to  another  variable 

( 16-bi t ) 

nov 

Ax , SCO  7 

lassiqn  SC07 

Itov 

P^LUAX 

; to  POLL 

*  send 

condition- 

tyoe  output 

(16-bit) 

TtOV 

AX, POLL 

Mssue  control 

out 

16,  AX 

416: 

nop 

tdefine  location  916 

#  test 

i  f 

AC 7  not 

equal  9C02 

then  ST01  =  1  (16-bit) 

•no  v 

9T01  , 1 

; oresuooose 

1 nequal i t  y 

no  v 

AX, AC7 

»  fetch  ac  7 

C  m  o 

AX, SCO? 

icomoare  arqunents 

ine 

S  +  4 

; end  rout ine  if 

t  roe 

nov 

ST01 ,0 

lequal,  9T01  =  0 

; branch 

on  false 

•nov 

AL , 4T0  1 

» i oad  value  into 

accunul  at  or 

CHID 

AL ,  0 

Jcomoare  to  zero 

j  z 

417 

» j  urop  to  917  if 

f alseC=0) 

; assi gn 

value  of 

one  variable 

to  another  variable 

( 16-bi t ) 

•nov 

AX , 9C08 

^assign  9C08 

■nov 

POLL, AX 

,‘to  POLL 

»  send 

condition- 

tyoe  output 

( 1 6-bi t ) 

•nov 

AX, POLL 

jissue  control 

out 

19,  AX 

417; 

noo 

Jdefine  location  917 

» test 

i  f 

AC9  not 

equal  SC02 

then  ST01  =  1  ( 16-bi t ) 

•nov 

STO 1 , 1 

; presuppose 

i nequal i t  v 

nov 

AX, AC8 

?  fetch  AC8 

cm3 

AX, SCO? 

rcompare  argunents 

ine 

s  +  a 

}  end  rout ine  if 

t  rue 

•nov 

ST  0  1 , 0 

; eoua 1 ,  9T0 1  =  0 

ioran ch 

on  false 

•nov 

AL,4T0l 

;load  value  into 

accumul ator 

cno 

AL,0 

rcompare  to  zero 

j* 

919 

} j  ump  to  918  if 

f al se(=0) 

; ass i gn 

value  of 

one  variable 

to  another  variable 

(16-bit) 

nov 

AX, 4C09 

1  assign  SCO 9 

nov 

POLL,  AX 

,'to  POLL 

J  send 

condi t i on- 

tyoe  output 

(16-bit) 

nov 

AX, POLL 

;issue  control 

out 

?0,  AX 

94 


5)18:  poo  /define  location  5)18 


/test  i * 

AC9  not 

equal  3C02 

then  3T01  -  1  (16-bit) 

TO  V 

3T01,1 

/presuppose 

i nequal i t  y 

TO  V 

AX, AC9 

/fetch  AC 9 

cmo 

AX , 3C  02 

/compare  arguments 

j  ne 

/ end  rout i ne  if 

t  rue 

710  V 

3T01 ,0 

/ equa 1 ,  3T0 1  =  0 

/ oranch 

on  false 

710  V 

AL, 3T01 

/ 1 oad  value  into 

accumul at  or 

CTO 

AL ,  0 

/compare  to  zero 

j  2 

319 

/ j  umo  to  319  if 

f al se(sO) 

/assign 

value  of 

one  var i aol e 

to  another  variable 

(16-bit) 

TIOV 

A  X , 3C  1  0 

/assign  3C10 

710  V 

POLL, AX 

/to  POLL 

/send  condition-type  outout 

(16-bit ) 

TIOV 

AX, POLL 

/ i ssue  cont  rol 

out 

22,  AX 

319: 

noo 

/define  location  319 

/ assi gn 

value  of 

one  variable 

to  another  variable 

( 16-bi t ) 

TIOV 

A  X , 3C02 

/assign  3C02 

• 

TIOV 

S^MANU , 

AX 

/to  SMMANU 

§ 

»oroc«dure  SMAUTO 

3SMAUT0: 

noo 

/entry  ooint  for 

SHAUTO 

/ detect 

condition 

-tyoe  inout 

( 1 b-b i t ) 

i  n 

AX, 5 

$ 

sense  environmental  data 

• 

TIOV 

KEYCHA, 

AX 

f 

Jorocedure  AUTO 

3AUT0: 

noo 

/entry  ooint  for 

A  JTO 

/assign 

value  of 

one  vari ao 1 e 

to  another  variable 

( 16-bi t ) 

70V 

A  X , 3C  0  3 

/assign  9C03 

mov 

MENU, AX 

/to  HENU 

/send  condi t i on-t yoe  output 

(16-bit ) 

TIOV 

AX, MENU 

/ i ssue  cont  ro 1 

out 

24,  AX 

/ detect 

condi t i on 

-tyoe  inout 

(16-bit) 

i  n 

AX, 6 

• 

t 

sense  environmental  data 

TIOV 

KEYCHA, 

AX 

/test  for  equality  between 

KEYCHA  and  3C02  (16-bit) 

TIOV 

3T01  ,  1 

/presuppose  equality 

tov  AX, KEYCHA  /fetch  KEYCHA 
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cmo 

AX , 3C  02 

{compare  arguments 

j  2 

S  +  4 

{end  routine  if 

t  rue 

mo  v 

5)101 ,0 

{not  equal ,  3T  0 1  =  0 

{ oranch 

on  false 

TIOV 

AL »  3 TO  l 

{ 1 oad  value  into 

accumu 1  at  or 

cmo 

AL,  0 

{compare  to  zero 

j  2 

320 

{ j  umo  to  320  if 

false(=0) 

{assign 

value  of 

one  variable 

to  another  variable 

(16-bit) 

mov 

AX, scoi 

{assiqn  3C01 

•no  v 

KEY  INM, AX 

{to  KEYINM 

320: 

noo 

:define  location  320 

»  test  for  equal i t  y 

between  KEYCHA  and  3C01  (16-oit) 

•nov 

3T0 1 , 1 

{oresuooose  equality 

■nov 

AX, KEYCHA 

{fetch  KEYCHA 

Cmo 

AX , 3C0 1 

{compare  arguments 

j  2 

$♦4 

{ end  rout i ne  if 

t  rue 

•nov 

3T01 ,0 

{not  equal,  3T01  =  0 

*  oranch 

on  false 

■nov 

AL , 3  TO  1 

{ 1 oad  value  into 

accumul  ator 

cmo 

AL  ,  0 

{compare  to  zero 

j  2 

321 

{ j  umD  to  321  if 

f al se(=0) 

; assi qn 

value  of 

one  variable 

to  another  variable 

( 16-bi t ) 

■nov 

A  X  ,  3C  1  1 

{ ass i an  3C 1 1 

•nov 

INTPER, AX 

{to  INTPER 

321 : 

noo 

{define  location  321 

?test  for  equal i t y 

between  KEYCHA  and  3C03  (16-oit) 

nov 

3T01 , 1 

{DresuDoose  equality 

•nov 

AX, KEYCHA 

{fetch  KEYCHA 

Cmo 

A  X  ,  3C  0  3 

{compare  arguments 

j  2 

$  1 4 

{ end  routine  if 

t  rue 

•nov 

3101 , 0 

{not  equal,  3T01  =  0 

J  branch 

on  false 

•nov 

AL , 3T  0 1 

{load  value  into 

accumul ator 

cmo 

AL,  0 

{compare  to  zero 

j  2 

322 

{ j  umD  to  322  if 

f alse<=0) 

{assign 

value  of 

one  vari abl e 

to  another  variable 

C 16-bi t ) 

•nov 

A  X , 3C  1  2 

{assiqn  3C12 

•nov 

INTPER, AX 

{to  INTPER 

322: 

noo 

{define  location  322 

•  *  .. 

•  .  *.  B.«  *-  B.  .  V'1  P.V 

% 

» test  for  equal i ty 

between  KEYCHA  and  5C0a  (16-bit) 

•nov 

5T01 , 1 

foresuopose  equality 

_ _ — 

mov 

AX, KEYCHA 

{fetch  KEYCHA 

• 

Cmo 

AX,4C0a 

{comoare  arguments 

' 

jz 

s+a 

{ end  rout i ne  if 

■f*  « 

t  rue 

* 

•noy 

4T01 ,0 

{ not  equal ,  4T  0 1  =  0 

{ or anc  h 

on  false 

-i  w*. 

nov 

AL  *  4T  0 1 

{load  value  into 

9  . 

t 

accumul at  or 

■;  ■ 

cmo 

AL ,  0 

{compare  to  zero 

■  \ 

j  z 

523 

{ j  umo  to  423  if 

’  4 

f  a  1 se ( =0 ) 

{assign 

value  of 

one  variaole 

to  another  variaole 

: 

( 16-bi t ) 

• 

nov 

AX, 5C1 3 

{assign  4C 1 3 

■nov 

IMTPER, AX 

{to  INTPER 

523! 

noo 

:define  location  523 

1  ;  test  f or  equality 

between  KEYCHA  and  5C05  (16-bit) 

•  •' 

■nov 

5T01 , 1 

{presuppose  equality 

■nov 

AX, KEYCHA 

{fetch  KEYCHA 

• 

K 

Cmo 

AX , 5C  05 

{compare  arguments 

j  z 

$♦« 

{ end  routine  if 

t  rue 

nov 

5T01 ,0 

{ not  equal ,  5T0 1  s  0 

; oranch 

on  false 

--  — 

•nov 

AL , 5T  0 1 

{load  value  into 

— 

accumul ator 

■,y 

•  4  ’  S 

- 

Cmo 

AL ,  0 

{compare  to  zero 

*  *'« 

j  z 

52a 

{ j  umo  t  o  52a  i f 

\w’« 

fa1se(=0) 

>assign 

val ue  of 

one  variable 

to  another  variable 

_4^i 

(16-bit) 

nov 

AX,5C1« 

{assign  5Cia 

■nov 

IMTPER, AX 

{to  IMTPER 

52a: 

noo 

:define  location  52a 

1  ; test  for  equal i ty 

between  KEYCHA  and  5C06  (16-oit) 

•  v-* 

■nov 

5  TO  1 ,  1 

{oresuooose  equality 

.. 

mov 

AX, KEYCHA 

{fetch  KEYCHA 

• 

Cmo 

AX , SC06 

{compare  arguments 

j  z 

s  +  a 

{ end  routine  if 

,*»  l  - 

t  rue 

V'\" 

•nov 

5T01 , 0 

{not  eoua 1 ,  5T 0 1  =  0 

■  *_w 

?  oranch 

on  false 

'  _w 

■nov 

AL , 5T0  1 

{load  value  into 

9 

accumu 1 ator 

Cmo 

AL ,  0 

{compare  to  zero 

j  z 

425 

{ j  umo  t  o  525  i  f 

f al se(=0) 

» assign 

value  of 

one  "ariaole 

to  another  variable 

'  -  - 

(16-bit) 

• 

—r 

97 

'  \ 

9  . 

,1 

•*  *  *  .  * V  v  * 

Lvj~. 

\’t\  /.* 

HOV 

AX, 3C06 

Jassiqn  3C06 

■no  v 

INTPEP, AX 

; to  INTPER 

325: 

noo 

rdefine  location  325 

/test  to r  equality  between  KETCHA 

and  3C07  (1 6-bi t  ) 

■no  v 

3T0  1  ,  1 

JoresuoDose  eouality 

TO  V 

AX , KETCHA 

; fetch  KETCHA 

Cmo 

AX, 3C07 

Jcotoare  arguments 

j  2 

St4 

lend  routine  if 

t  rue 

TOV 

3  T  0  1 ,0 

J  not  equal ,  3 TO  1  =  0 

*  oranc h 

on  false 

TO  V 

AL,aT01 

J  l  oad  value  into 

arcunul ator 

cmo 

AL ,  0 

icomoare  to  zero 

j  2 

a  2  6 

J j  umD  t  o  326  i f 

f al se(=0) 

; ass i qn 

value  of 

one  variable 

t  0 

another  variable 

C 16-bi t ) 

TOV 

AX.3C01 

Jassiqn  3C01 

TOV 

I  NT PEP , AX 

Jto  INTPER 

326 : 

noo 

rdefine  location  326 

;assi gn 

value  of 

one  variable 

t  0 

anot  her  variable 

( 1 6-b i t ) 

TOV 

AX, CLOCK 

Jassign  CLOCK 

TOV 

INTI IM, AX 

Jto  INTTIM 

>  ass i gn 

value  of 

one  variable 

t  o 

another  variable 

C 16-bi t  J 

TOV 

AX, 3C02 

Jassiqn  3C02 

TOV 

SMAUTO, AX 

Jto  S^IAUTO 

; assi gn 

value  of 

one  variable 

t  0 

another  variable 

(16-bit) 

TOV 

A  X , 3C0 1 

Jassiqn  -DC01 

• 

TOV 

TPOLL ,  A  X 

Jto  T POLL 

9 

Jorocedure  TP3LL 

3TP0LL: 

noo 

J  ent  ry  ooi nt  for 

T  POLL 

Jsubtract  16-oit 

CLOCK  -  INTTIW  = 

3T01 

TOV 

AX, CLOCK 

J  fetch  subt  rahend 

suo 

AX, INTTI* 

Jfecth  and  subtract 

n i nuend 

TOV 

-i> T 0  1  ,  AX 

Jstore  answer  in  3T01 

; test  i f 

STOlgreater  than  INTPEP 

then  3T0  1  s  1 

(16-bit) 

TOV 

3  T  0  1  , 1 

JpresuoDOSe  arql  > 

arg2 

TOV 

AX, 3T01 

J  fetch  3 T 0 1 

CTO 

AX, INTPER 

Jcomoare  arguments 

jg 

Tea 

J  end  routine  if 

t  rue 


to  v 


3T  0  1 , 0 


not  >  ,  3T0  1 


0 


foranch  on  false 


no  v 

accumu 1  at  or 

Cmo 
j  z 

false(sO) 

fassign  value  of 
( t6-bi t ) 

■no  v 
no  v 

327:  no o 

9 

lorocedure  DOLLAU 


3P0LLAU:  noo 

f ent  ry  point  for 

PDLLAU 

?  test  if  ACO  not 

equal  3C02 

then 

3T01  =  1  (16-bit) 

nov 

3T01,1 

f presuppose 

i neoual i t  y 

nov 

AX, ACO 

/fetch  ACO 

Cmo 

AX , 3C02 

fcompare  arguments 

j  ne 

St  4 

fend  routine  if 

t  rue 

nov 

3T01 ,0 

f  equal ,  3T  0 1  =  0 

Jbranch  on  false 

nov 

AL, 3T01 

» 1 oad  value  into 

accumul ator 

Cmo 

AL ,  0 

fcompare  to  zero 

i  z 

328 

f  j  umo  to  328  if 

false(sO) 

•assign  value  of 

one  variable  to 

another  variable 

(16-bit) 

nov 

AX , 9C02 

fassign  3C02 

nov 

POLL, AX 

fto  POLL 

1  send  condition- 

tyDe  outout 

(lb- 

bit) 

nov 

AX, POLL 

• 

9 

issue  control 

out 

928:  ngo 

f  t  est  if  AC1  not 

2b,  AX 

equal  3C02 

then 

idefine  location  928 
3T01  =  1  (16-oit) 

nov 

3T01 , 1 

f  presuppose 

i nequal i t  y 

nov 

AX, AC1 

f  fetch  AC  1 

Cmo 

AX, 3C02 

fcomoa re  arguments 

ins 

S  +  4 

f end  rout i ne  if 

t  rue 

nov 

9T01 ,0 

f  equa l ,  9T0 1  =  0 

foranch  on  false 

nov 

AL »  9T  0 1 

f l oad  value  into 

accumu 1  at  or 

cmo 

AL ,  0 

fcompare  to  zero 

i  z 

929 

f  j  umo  t  o  329  i f 

f a  1 se ( =0 ) 

AL,3T01 


f 1 oad  value  into 


AL »  0 
327 


fcompare  to  zero 
f  j  u  mo  to  5)27  if 


one  variable  to  another  variable 


AX,9C01 
TPOLL, AX 


;  as  sign  3C01 
Jto  TPOLL 

fdefine  location  5)27 


1  ass i gn  value  of  one  variaole  to  another  variable 
(16-bit) 


DO  V 

AX.iCOl 

.assiqn  3C01 

DO  V 

POLL, AX 

Jto  POLL 

» send 

condi t i on- 

tyoe  output 

(16-bit) 

DOV 

AX, POLL 

.issue  control 

out 

28,  AX 

5)29: 

noo 

Jdefine  location  329 

;  test 

if  AC2  not 

equal  i)C02 

then  3T  0  1  =  1  (  1 6-b i  t ) 

nov 

3T  0  1  ,  1 

; presuppose 

i nequa 1 i t  y 

nov 

AX, AC2 

1  fetch  AC2 

cno 

AX,3C02 

.compare  arquments 

jne 

sta 

»  end  rout i ne  if 

t  rue 

nov 

3T01 ,0 

» eoual ,  3T0 1  =  0 

loranch  on  f al se 

nov 

al.stoi 

» 1 oad  value  into 

accumu 1 ator 

cno 

AL,0 

.compare  to  zero 

i  z 

330 

»  j  umo  to  330  if 

f al se ( =  0 ) 

lassiqn  value  of  one  variable  to  another  variable 
(16-bit) 


nov  AX#3C03  .assign  3C03 

nov  POLL ,  AX  Ito  POLL 

•send  condition-type  output  (16-bit) 

■nov  A  X .  POLL  .issue  control 

out  30 . AX 

330:  noo  :define  location  330 


.test  if  AC3  not  equal  3C02  then  o>T 0 1  =  1  (16-bit) 


nov 

3T01, 1 

; presuppose 

i nequal i ty 

nov 

AX, AC3 

.fetch  AC 3 

cmo 

AX.3C02 

.compare  arguments 

j  ne 

*♦4 

lend  routine  if 

t  rue 

nov 

iTOl ,0 

»  equal ,  3T  0 1  -  0 

J  branch 

on  false 

nov 

AL.3T01 

;  1  oad  value  into 

accumul ator 

Cmo 

AL,  0 

.compare  to  zero 

j  z 

331 

t j  umo  to  331  if 

false(sO) 

» ass i gn 

va 1 je  of 

one  variable 

to  another  variaole 

( 16-bi t ) 

nov 

AX.3C04 

.assign  3C04 

•nov  POLL. AX  ;to  POLL 

.send  condi t i on-t yoe  output  (16-bit) 

■nov  AX. POLL  ?issue  control 

out  32, AX 


<331:  noD 

:define  location  331 

•  test  if  AC4  not 

equal  3C02  then 

3T01  s  1  (lb-bit) 

no*/ 

3T0t,  1 

• oresuooose 

i nequal i t  v 

now 

AX, AC« 

ffetch  AC4 

Cmo 

A  X , 3C  0  2 

fcomoare  arounents 

j  ns 

S  +  4 

• end  rout ine  if 

t  rue 

nov 

3T  0  1 , 0 

f  equal ,  3T 0 1  s  0 

•oranch  on  false 

now 

AL.3T01 

•  1  oad  value  into 

accumu 1  at  or 

cno 

AL ,  0 

fcomoare  to  zero 

j  z 

3  32 

! j  umo  to  332  if 

false(sO) 

•assign  value  of 

one  variable  to 

another  variable 

(16-bit) 

now 

AX , 3C05 

•assign  3C05 

nov 

POLL, AX 

?to  POLL 

;send  condition- 

t  yoe  out  out  (16- 

bit) 

nov 

A  X , poll  ; 

issue  control 

out 

3*4 ,  AX 

332:  noD 

:define  location  332 

•test  if  ACS  not 

equal  3C02  then 

3T0 1  =  1  (lb-bit) 

nov 

3  T  0 1 ,  1 

foresuPDose 

i nequal i t  y 

now 

AX, ACS 

•fetch  ACS 

cmo 

AX , 3C02 

fcomoare  argunents 

ine 

5ta 

•  end  rout ine  if 

t  rue 

now 

3T01 ,0 

•equal ,  3T01  =  0 

•branch  on  false 

now 

AL,3T01 

; 1 oad  value  into 

accumul ator 

Cno 

AL,0 

fconpare  to  zero 

i  z 

333 

•  j  umo  to  333  if 

f alse(sO) 

; assi qn  value  of 

one  variable  to 

another  variaole 

( 16-bi t ) 

now 

AX , 3C06 

•assign  3C06 

nov 

POLL,  AX 

fto  POLL 

•  send  condition- 

t  yoe  out  out  (16- 

bit) 

now 

A  x , POLL  ; 

issue  control 

out 

36,  AX 

333:  noD 

:define  location  333 

•  test  if  AC 6  not 

equal  3C02  then 

3T01  =  1  (16-bit) 

now 

3T01 , 1 

; oresuooose 

i nequal i t  y 

now 

AX, AC6 

ffetch  ACb 

Cno 

A  X , 3C  02 

•compare  arguments 

ine  ?t4  fend  routine  if 


tov 

9T01,0 

/equal #  vTO  1  =  0 

J  branch 

on  false 

TO  V 

AL,9T01 

J 1 oad  value  into 

accumul ator 

cmo 

AL ,  0 

/compare  to  zero 

j  z 

934 

/ j  umo  1 0  934  i f 

f al se(=0) 

?  ass i qn 

value  of 

one  variaDle 

to  another  variable 

( 16-bi t ) 

TO  V 

AX, 9C07 

/assign  3C07 

TO  V 

POLL, AX 

,*to  POLL 

;  send 

condi t i on- 

type  output 

(16-bit ) 

TOV 

AX, POLL 

/issue  control 

out 

38,  AX 

934: 

nop 

:define  location  S34 

?  test 

i  f 

AC7  not 

equal  SCO? 

then  9T01  =  1  (16-bit) 

TOV 

ST01 , 1 

; presuppose 

i nequal i t  v 

TOV 

AX, AC7 

/  fetch  AC7 

Ctro 

AX, SCO? 

/Compare  arguments 

jns 

, end  rout i ns  if 

t  rue 

TOV 

9T01 ,0 

/ equa 1 /  STO 1  =  0 

Joranch 

on  false 

TOV 

AL/9T01 

, 1 oad  value  into 

accumu 1 ator 

CTO 

AL  /  0 

/compare  to  zero 

i  z 

935 

/jump  to  935  if 

false(=0) 

; ass i gn 

value  of 

one  variable 

to  another  variable 

(16-bit) 

TOV 

A  X , 9C08 

/assign  9C08 

TOV 

POLL, AX 

;to  POLL 

» send 

condi t i on- 

type  output 

(16-bit ) 

TOV 

AX, POLL 

/issue  control 

out 

40,  AX 

935: 

noo 

:define  location  935 

Jtest 

i  f 

ACS  not 

equal  SCO? 

then  3T01  =  1  (16  —  oit) 

TOV 

9  T  0  1  ,  1 

; presuppose 

i nequal i tv 

TOV 

AX,  ACS 

/fetch  AC8 

cmo 

AX, SCO? 

/compare  arguments 

j  ns 

$  +  4 

?  end  routine  if 

t  rue 

TOV 

ST  0  1 , 0 

/equal/  ST  0 1  =  0 

» oranch 

on  false 

TOV 

AL,3T01 

; 1 oad  value  into 

cmo 
i  z 


accumu 1  at  or 


AL,  0 
936 


rcomoare  to  zero 
}  j  umo  to  336  if 


f si se(*0) 

Mssign  value  of  one  variable  to  another  variable 
( 16-bi t ) 


TO  V 

AX,3C09 

Mssign  3C09 

TOV 

POLL, AX 

;to  POLL 

;  send 

condi t i on-tyoe  outout 

(16-bit) 

TOV 

AX, POLL 

; i ssue  cont  rol 

out 

42,  AX 

336 : 

noo 

tdefine  location  93h 

*  test 

i  f 

AC9  not 

equal  3C02 

then  9T01  =  1  (16-bit) 

TOV 

3T01 ,  1 

; Dresupoose 

i oequal i t  y 

TOV 

AX, AC9 

;fetch  AC 9 

CTO 

AX, 3C02 

Jcompare  arguments 

j  ne 

$♦4 

» end  routine  if 

t  rue 

TOV 

3 TO  1 , 0 

»  eoua 1 ,  3T0 1  =  0 

.branch 

on  false 

TOV 

AL ,  d)T0 1 

» 1 oad  value  into 

accumul ator 

cmo 

AL ,  0 

Icomoare  to  zero 

j  2 

337 

J j  ump  to  9  37  if 

false(=0) 

J  assi an 

value  of 

one  variable  to  another  variable 

(16-bit) 

TOV 

AX, 9C10 

?assign  3C  1  0 

TOV 

POLL, AX 

Jto  poll 

J  send 

condi t i on-t yoe  outout 

( 1 6-bi t ) 

TOV 

AX, POLL 

tissue  control 

out 

44,  AX 

337: 

noD 

:define  location  937 

; ass i qn 

value  of 

one  variable  to  another  variable 

(16-bit) 

TOV 

AX,iC02 

Mssign  9C02 

• 

TOV 

T°0LL, AX 

;to  TPOLL 

9 

Jorocedure  MMSGDS 

3MMSG0S: 

noo 

fentry  ooint  for 

MMSGDS 

; detect 

condi t i on 

-tyoe  inout 

(16-bit) 

i  n 

AX, 7 

Mense  environmental  data 

• 

TOV 

KE YCHA, AX 

9 

Jorocedure  MS3DSP 

3MSGDSP: 

noo 

; entry  ooint  for 

MSGDSP 

J  assign 

value  of 

one  variaole  to  another  variable 

( 16-bi t ) 

TOV 

A  X , MSGO 

Mssiqn  MSGO 

TOV 

MSG VDT , A X  ?to  msgvOT 

Mend  c  ond  i  t  i  on-t  yoe  output  (16-bit) 


nov  Ax, MSGVDT  Jissue  control 

out  4b , A  X 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bit) 

nov  AX,MSGl  Jassion  MSG1 

nov  MSGVDT, AX  ;to  MSGVDT 

Jsend  condi t i on-t yoe  outout  (lb-bit) 

nov  Ax, MSGVDT  Jissue  control 

out  48, AX 

Jassiqn  valje  of  one  variable  to  another  variable 
( 16-bi t ) 

•nov  AX, MSG 2  Jassiqn  MSG2 

nov  MSGVDT, AX  Jto  MSGVDT 

jsend  condition-type  outout  (lb-bit) 

nov  AX, MSGVDT  Jissue  control 

out  50 , Ax 

Jassiqn  value  of  one  variable  to  another  variable 
( 1 6-b i t ) 

nov  AX,MSG3  Jassiqn  MSG3 

nov  MSGVDT, AX  Jto  MSGVDT 

Jsend  condi t i on-tyoe  outout  (lb-bit) 

nov  AX, MSGVDT  Jissue  control 

out  52, AX 

Jassiqn  value  of  one  variable  to  another  variable 
( 1 6-b i t ) 

nov  AX, MSG4  Jassiqn  MSG4 

nov  MSGVDT, AX  Jto  MSGVDT 

Jsend  condi t i on-tyoe  outout  (lb-bit) 

nov  AX, MSGVDT  Jissue  control 

out  54, Ax 

Jassiqn  value  of  one  variable  to  another  variable 
(lb-bit) 

nov  AX, MSGS  Jassiqn  MSG5 

nov  MSGVDT, AX  Jto  MSGVDT 

Jsend  condi t i on-t yoe  output  (lb-bit) 

nov  AX, MSGVDT  Jissue  control 

out  5b, AX 

Jassiqn  value  of  one  variable  to  another  variaole 
( 1 6-b  i  t ) 

nov  AX,MSG6  Jassiqn  MSGb 

nov  MSGVDT, AX  Jto  MSGVDT 

jsend  condi t i on-t ype  outout  (lb-bit) 

nov  AX, MSGVDT  Jissue  control 

out  58, AX 

Jassiqn  value  of  one  variable  to  another  variable 
( 1 6-b  i  t ) 

nov  AX,mSG7  Jassiqn  MSG7 

nov  MSGVDT, AX  Jto  MSGVDT 

Jsend  condition-type  output  (16-bit) 

nov  AX, MSGVDT  Jissue  control 

out  60 , A  X 


Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

mov  AX , MSG8  Jassign  MSG8 

nov  MSGVOT, AX  Jto  MSG VDT 

Jsend  condi t i on-t yoe  outout  (16-bit) 

7)o v  Ax,MSGvDT  ?issue  control 

out  62, AX 

Jassign  value  of  one  variable  to  another  variaole 
(16-bit) 

Tio v  AX,MSG9  Jassign  MSG9 

7)o  v  MSGVOT  ,  AX  Jto  MSGVOT 

Jsend  condi t i on-t yoe  output  (16-bit) 

7)0 v  AX, MSGVOT  Jissue  control 

out  6<J ,  AX 

Jassign  value  of  one  variable  to  another  variaole 
( 16-bi t ) 

dov  AX,3C02  Jassign  a)C02 

7)o v  MMSGDS ,  AX  Jto  MMSGDS 

9 

Jorocedure  MLOCAT 

9ML0CAT:  noo  Jentry  point  for 

MLOCAT 

Jdetect  condi t i on-t yoe  inout  (16-bit) 

in  AX, 8  Jsense  environmental  data 

7)0  v  KEYCHA,AX 

9 

Jorocedure  L9CATI 

9L0CATI;  noo  Jentry  Doint  tor 

L3CATI 

Jassign  value  of  one  variable  to  another  variable 
( 1 6-b i t ) 

7)OV  AX,alCOii  Jassign  a)C04 

7>ov  MENU, AX  Jto  MENU 

Jsend  condi t i on-t yoe  output  (16-bit) 

7)0 v  AX, MENU  Jissue  control 

out  66 , A  X 

Jdetect  condi t i on-tyoe  inout  (16-bit) 

in  AX, 9  Jsense  environmental  data 

7)0 v  KEYCHA,  AX 

Jtest  for  equality  between  KEYCHA  and  9C0 2  (16-oit) 

Tiov  n)T 01,1  Joresuooose  equality 

mo v  AX, KEYCHA  Jfetch  KEYCHA 

cmo  AX,iC02  Jcomoare  arguments 

jz  $  +  <4  Jend  routine  if 

t  rue 

mo v  9T01,0  Jnot  equal,  i)T01  =  0 

Joranch  on  false 

tiov  AL»o>T01  Jload  value  into 

accumu 1  at  or 

cmo  AL,0  Jcomoare  to  zero 

jz  938  J j umo  to  938  if 


f a1se(=0) 


* assi gn 

value  of 

one  variable 

t  0 

another  variable 

( 16-bi t ) 

■nov 

A  X , 3C0 1 

{assign  3C01 

•no  v 

KEYINM, AX 

{to  KEYIN'* 

338: 

noo 

{define  location  3.38 

{test 

for 

egual i t  y 

between  KEYCHA 

and  3C  0 1  ( 1 6-oi t ) 

•nov 

<9T0  1  ,  1 

{oresuooose  equality 

•nov 

AX,KEYCHA 

{fetch  KEYCHA 

Cmo 

A  X  ,  3C  0  1 

{compare  arguments 

i  z 

S  ♦  4 

{ end  rout i ne  if 

t  rue 

•nov 

3T01 ,0 

{not  equal*  3T01  =  0 

; oranch 

on 

i  false 

•nov 

AL , 5  T  0  1 

{ 1 oad  value  into 

accumul ator 

cmo 

AL ,  0 

{compare  to  zero 

j  z 

339 

{ j  umo  to  339  if 

f alse(=0) 

; ass i gn 

value  of 

one  variaole 

t  0 

another  variaole 

C 16-bi t ) 

nov 

AX,3C01 

{assign  3C01 

nov 

NErtPOS*  AX 

{to  NErtPOS 

<339 : 

noo 

{define  location  339 

;  test 

for 

equal  i  t  y 

between  KEYCHA 

and  3C03  (lb-oit) 

nov 

3  T  0  1  *  1 

{oresuppose  equality 

nov 

AX, KEYCHA 

{fetch  KEYCHA 

Cmo 

AX,3C03 

{compare  arguments 

j  z 

$  +  4 

* end  routine  if 

t  rue 

nov 

3T0  1 , 0 

{not  equal*  3T01  =  0 

{ oranch 

on 

false 

nov 

AL,3T0t 

{ 1 oad  value  into 

accumu I  at  or 

Cmo 

AL ,  0 

{compare  to  zero 

i  z 

340 

{ j  ump  to  340  if 

f al se(=0) 

{assign 

value  of 

one  vari abl e 

t  0 

another  variable 

( 16-bi t ) 

nov 

AX , 3C02 

{ assi qn  3C02 

nov 

NEr/POS,  AX 

{to  NEtoPOS 

{assign 

value  of 

one  variable 

t  0 

another  variable 

( 1 6-b i t ) 

nov 

A  X  ,  3C  0  1 

{assign  3C0  1 

nov 

THLOCA, AX 

{to  T^LOCA 

340: 

noo 

Jdefine  location  340 

{assign 

val ue  of 

one  variaole 

t  0 

anot  her  variable 

(16-bi  t ) 


tiov 
•no  v 


AX, 3C02 
MLOCAT, AX 


;  assign  i)C  0  2 
;to  ML0CAT 


{procedure  TMLOCA 

9TML0CA:  noo  ientry  ooint 

TMLOCA 

{detect  condi t i on-tyoe  input  (lb-bit) 

in  A  x  ,  1  0  Isense  environmental 

mov  KEYCHA.AX 


iorocedure  MANLOC 

9MANL0C!  noo  {entry  point 

MANLOC 


; detect 


J  ass i qn 
(16-bit ) 


; assi gn 
(16-bit ) 


condition 

-type  i nout  ( 1  6 

-bit) 

i  n 

AX, 11  {sense  environmental 

■nov 

MANPOS, AX 

value  of 

one  variable  to 

another  variable 

•nov 

AX, MANPOS 

{assign  MANPOS 

TIOV 

POSITI, AX 

{to  POSITI 

value  of 

one  variable  to 

another  variaole 

•nov 

AX.9C02 

{assign  9C02 

mo  v 

TMLOCA, AX 

{to  TMLOCA 

.procedure  MCLOCK 

iMCLOCK :  noo  .entry  point 

MCLOCK 

.detect  condition-type  input  (16-bit) 

in  AX/12  .’sense  environmental 

mov  KEYCHA.AX 

9 

.procedure  CLOCKS 

5CL0CKS:  noo  .entry  point 

Clocks 

; assi on  value  of  one  variable  to  another  variable 
(16-bit) 

mov  AX.9C05  {assign  a)C05 

Ttov  MENU. AX  {to  MENU 

{send  condi t i on-t yoe  output  (16-bit) 

mov  AX,MENU  {issue  control 

out  68 , AX 

{detect  condi t ion-type  input  (16-bit) 

in  AX, 13  {sense  environmental 

tiov  KEYCHA.AX 

{assign  value  of  one  variable  to  another  variable 
( 16-bi t ) 

tov  AX.SC02  {assign  JC02 

mo v  MCLOCK, AX  {to  MCLOCK 


{orocedure  MLOGIN 

(JMLOGIN:  noo  {entry  ooint 

MtOGIN 


for 

data 

for 

data 


for 

data 

for 

data 

for 


detect  condition-type  inout  (lb-bit) 


i/ » i » *> w  »  ip' 


in  AX, isense  environmental  data 

mov  KEYCHA, AX 

9 

(procedure  L03TNO 

3L0GIN0:  noo  Jentry  ooint  for 

LDGINO 


lassiqn  value  of  one  variable  to  another  variable 
( 1 6-bi  t ) 


■nov 

A  X , 3C  06 

Jassian  3C06 

■nov 

MENU, AX 

Jto  MENU 

Jsend  condi t i on-tyoe  outout  (16- 

bit) 

■nov 

AX, MENU 

issue  control 

out 

70,  AX 

(detect  condition- 

tyoe  inout  (16 

-bit) 

i  n 

AX, 15  i sense  environmental  data 

■nov 

KEYCHA, AX 

; test  for  equal i t  y 

between  KEYCHA  and  3C02  (16-bit) 

mov 

3T01 ,  1 

(‘oresuDOose  equality 

■nov 

AX, KEYCHA 

; fetch  KEYCHA 

cms 

Ax,acoa 

('compare  arguments 

j  z 

$♦4 

; end  routine  if 

t  rue 

mov 

3T01 ,0 

?not  equal ,  3T0  1  =  0 

, oranc h  on  false 

mov 

AL,3T01 

? 1 oad  value  into 

accumul ator 

cmo 

AL,0 

,’compare  to  zero 

j  z 

341 

!  j  ump  t  o  34 1  if 

f al se(=0) 

Jassiqn  value  of  one  variable  to 

another  variable 

C 16-bi t ) 


mov 

AX , 3C0 1 

; assign  3C01 

mov 

KEY  INM, AX 

?to  KEYINM 

341  : 

noo 

cdefine  location  341 

Jtest  for 

equal i t  y 

between  KEYCHA 

and  SCO  1  (1 6-d i t ) 

mov 

3T01  , 1 

foresuppose  equality 

mov 

AX, KEYCHA 

J  fetch  KEYCHA 

cmo 

AX , SCO  1 

(Compare  arguments 

j  z 

S  +  4 

fend  routine  if 

t  rue 

Jbranch  on 

mov 

false 

3T01  ,0 

,  not  eaua 1 ,  3T 0 1  =  0 

mov 

AL , 3T0 1 

fload  value  into 

accumul ator 

cmo 

AL ,  0 

(Compare  to  zero 

j  z 

34  a 

( j  umo  to  342  if 

falsft(sO) 

(’assign  value  of  one  variable  to  another  variable 
( !6-bi t ) 


■no  v 
mov 


A  X  ,  AC  0  1 
TLOGIN, AX 


assign  3C01 
;to  TLOGIM 


342:  nop  rdefine  location  342 

;  test  for  equality  between  KEYCHA  and  3C03  (lb-bit) 


■no  v 

3T01 ,  1 

Jpresuooose  equality 

•no  v 

AX, KEYCHA 

; fetch  KEYCHA 

Cmo 

4X,3C03 

Jcomoare  arounents 

i  z 

$  ♦  4 

; end  routine  if 

t  rue 

■no  v 

3T  0  1 , 0 

Jnot  equal,  3T01  =  0 

; oranch 

on 

f  a  1  se 

nov 

4L#3T01 

; 1 oad  value  into 

a:cumu 1  at  or 

cmo 

AL#0 

Jcomoare  to  zero 

j  z 

343 

j j  umo  to  34  3  if 

f al se(=0) 

anot  her  variable 

; assi gn 

value  of  one  variable  to 

C lb-bi t ) 

■nov 

AX.3C01 

Jassign  3C01 

•no  v 

TLOGOU,  AX 

?  t  o  TLOGOU 

343: 

noo 

:define  location  o)43 

; ass i gn 

value  of  one  variable  to 

another  variable 

(16-bit) 

■nov 

AX , 3C02 

Jassiqn  3C02 

•nov 

MLOGIN, AX 

Jto  mlogin 

# 

; orocedure 

TLOGIN 

3TL0GIN 

• 

• 

nop 

J entry  point  ♦or 

tlogin 

-bit ) 

» detect 

condi t i on- 

type  input  (16 

i  n 

AX, 16  Jsense  environmental  data 

■nov 

KEYCHA,  AX 

9 

;  orocedure 

LOGIN 

3L0GIN: 

noo 

lent  ry  ooi nt  for 

LOGIN 

; ass i qn 

value  of  one  variable  to 

another  variable 

( lb-bi t  ) 

•nov 

AX, 3C02 

J  assi gn  3C02 

■nov 

ACNllM,  AX 

Jto  ACNU^ 

»  det  ec  t 

condi t i on- 

type  input  (lb 

-bit) 

i  n 

AX, 17  jsense  environmental  data 

■nov 

ACNUM, AX 

Jtest  for 

equal i t  y 

between  NEXTAC  and  3C02  (lb-Dit) 

nov 

3T0!  ,  1 

('oresuocose  equality 

nov 

AX, NEXTAC 

,-fetch  NEXTAC 

cno 

AX,  3C  0  2 

Jcomoare  arguments 

j  z 

S  ♦  4 

lend  rout ine  if 

t  rue 

nov 

3T01 ,0 

J not  equa 1 »  3T 0 1  =  0 

Jtest  for 

equal i ty 

between  ACO  and  3C02  (lb-bit) 

nov 

3T02, 1 

joresuDDose  equality 

nov 

AX, ACO 

; fetch  ACO 

cm3 

AX,3C02 

Jcomoare  arounents 

j  z 

$  ♦  4 

lend  routine  if 

t  rue 

nov 

3T02,0 

/not  equal  ,  i»T02  = 

0 

/logical 

and .  (16- 

bit)  3T0  1  . 

and*  3T 02  3  3T  0  1 

mo  v 

AX ,  3T0  1 

and 

AX/3T02 

•now 

3T01 , AX 

» oranch 

on  false 

nov 

AL/3T01 

, load  value  into 

accunul ator 

cm3 

AL,0 

/compare  to  zero 

j  z 

344 

/ j  ump  to  344  if 

f al se(30) 

/  ass i qn 

value  of  one  variable 

to  another  variable 

(16-bit ) 

mov 

AX, ACNUM 

Jassiqn  ACNUM 

mov 

ACO, AX 

/to  ACO 

<944: 

noo 

Sdefine  location  344 

/test  for  equality 

between  NEXTAC  and  SC 01  (16-oit) 

■nov 

3T0  1  ,  1 

/presuppose  equality 

■nov 

AX.NEXTAC 

, fetch  NEXTAC 

c  m  o 

AX.3C01 

/Compare  arguments 

i  z 

$+•4 

lend  routine  if 

t  rue 

■nov 

3T01 ,0 

/not  equal  ,  3T0  1  s 

0 

/test  for  equality  between  AC  1  and  3C02  (16-bit) 


•nov 

3  T  0  2 , 1 

/OresuODOse  equality 

nov 

AX, AC  l 

; fetch  AC  1 

cmo 

AX,3C02 

/ComDare  arguments 

i  z 

S*4 

, end  rout i ne  if 

t  rue 

nov 

3T 02 , 0 

/not  equal,  3T02  3  0 

/logical 

and,  (16- 

bit)  3T0 1  . 

and.  3T 02  3  3T01 

nov 

AX , 3T0  1 

and 

AX,3T02 

nov 

3T01 , AX 

; oranch 

on  false 

nov 

AL , 3T  0 1 

/load  value  into 

accumul ator 

Cmq 

AL,0 

/compare  to  zero 

j  z 

345 

»  j  ump  to  345  if 

f al se(=0) 

/assign 

value  of  one  variable 

to  another  variaole 

( 1 6-b i t ) 

nov 

AX, ACNUM 

/assign  ACNUM 

nov 

AC1 ,  AX 

/to  AC  1 

345: 

noo 

:define  location  345 

/test  for  equal i t  y 

between  MEXTAC  and  3C03  (lo-oit) 

nov 

3T01 , 1 

/oresuooose  equality 

nov 

Ax, NEXTAC 

J  fetch  NEXTAC 

*  .  *  ,  * 

cmo 

AX , SC  0  3 

{compare  arqunents 

j  2 

$♦4 

{ end  rout i ne  if 

t  rue 

nov 

STOl'O 

>  not  equal ,  STO 1  = 

0 

» test 

for 

equal i t  y 

Detween  AC2 

and  SC02  (1 6-bi t ) 

•nov 

ST  02, 1 

Joresupoose  equality 

•nov 

AX, AC2 

{fetch  AC 2 

cmo 

AX , SC02 

Jconpare  arqunents 

i  z 

$♦4 

{ end  rout i ne  if 

t  rue 

nov 

ST02, 0 

J  not  equal  ,  ST 02  = 

0 

; logical 

and.  (16- 

bit)  ST01  .and.  ST 02  =  ST01 

mov 

AX,ST01 

and 

A  X , ST02 

nov 

ST01 , AX 

Joranch  on  false 

•nov 

AL'STOl 

» 1 oad  value  into 

accu<nul  ator 

C<no 

AL,0 

{compare  to  zero 

i  2 

S46 

J  j  ump  t  o  S46  i f 

f al se ( =0 ) 

;assign  value  of  one  variable 

to  another  variable 

(16-bit) 

nov 

AX,  ACNU'* 

{assign  ACNIM 

nov 

AC2, AX 

Jto  AC2 

sab: 

nop 

{define  location  S46 

.'test 

for 

equal i t  y 

between  MEXTAC  and  SC04  (16-oit) 

nov 

STO  1 , 1 

{presuppose  equality 

nov 

AX,NEXTAC 

{fetch  MEXTAC 

cmo 

A  X , SC  0  4 

{Compare  arguments 

j  2 

$♦4 

{end  routine  if 

t  rue 

nov 

STO  1 , 0 

{not  equal ,  ST01  = 

0 

»test 

for 

equality 

between  AC3 

and  SC02  ( 16-bi t  ) 

nov 

ST  0  2 ,  1 

{presuooose  equality 

nov 

AX, AC3 

{ fetch  AC3 

Cmo 

AX , SC02 

{compare  arguments 

i  z 

St4 

{ end  routine  if 

t  rue 

nov 

ST02 , 0 

{not  equal ,  ST02  = 

0 

{logical 

and.  (16- 

bit)  ST01  .and.  ST02  =  ST01 

no  v 

A X ,  STO  1 

and 

A  X ,  ST02 

nov 

ST01 , AX 

{  or anc h  on  false 

nov 

AL,ST01 

{ 1 oad  value  into 

accumul  ator 

cmo 

AL ,  0 

{compare  to  zero 

i  2 

S47 

{  j  ump  to  S47  if 

false(sO) 

{assign  value  of  one  variable  to  another  variaole 


( 1 6-bi t ) 


t  rue 


t  rue 


■no  v 

AX, ACNUM 

Jassian  ACNJM 

nov 

ACS, AX 

;  t  0  AC  5 

847: 

noo 

tdefine  location  347 

(test 

for 

equal i  t  v 

between 

ME  X  T  AC  and  3C05  (16-oit) 

nov 

8T0  1 ,  1 

loresuoDose  equality 

nov 

AX , NE  X  T  AC 

;  fetch  NEXTAC 

cmo 

AX.8C0S 

iconiDare  argunents 

j  Z 

5  +  4 

» end  routine  if 

nov 

9T  0 1 , 0 

?no  t  eoua l ,  9T0  1  s  0 

;  test 

for 

equal i t  y 

bet  ween 

AC4 

and  8CQ2  (lb-bit) 

nov 

3T02, 1 

(oresuooose  equality 

nov 

AX,  AC4 

{ fetch  AC 4 

cmo 

AX , 5C02 

Jconoare  argunents 

j  z 

5  +  4 

» end  rout i ne  if 

nov 

8T02, 0 

*not  equal,  9T02  =  0 

rlogiea)  and.  (16-bit)  9T01  .and.  8T02  =  3T01 


nov 

AX , 8T0 1 

and 

A  X , 8  T02 

nov 

8T01 , AX 

Joranch  on  false 

nov 

AL,8T0l 

; 1 oad  value  into 

accumul at  or 

Z  no 

AL,0 

Jcomoare  to  zero 

j  z 

849 

t j  uno  to  848  if 

false(=0) 

;assign  value  of  one  variable  to 

another  variable 

( 1 6-bi t ) 

nov 

AX, ACNUM 

;assign  ACNUM 

nov 

AC4, AX 

;to  AC4 

84ft;  noD 

idefine  location  348 

# test  for  equality 

between  NEXTAC 

and  8C06  (lb  —  sit) 

nov 

8T01 ,  1 

loresuoDose  equality 

nov 

AX, NEXTAC 

?  fetch  NEXTAC 

cno 

AX, 8C06 

»comoare  argunents 

i  z 

5  +  4 

?  end  rout i ne  if 

t  rue 

nov 

8  T  0  1 , 0 

J  not  equal,  9T01  =  0 

; test  for  equal i tv 

between  AC5  and  8C02  (16-bit) 

nov 

3T02,  l 

JuresuDoose  equality 

nov 

AX, AC'S  ; 

fetch  AC5 

cmo 

AX , 9C02 

JconDare  araunents 

j  z 

5  +  4 

J  end  rout i ne  if 

t  rue 

nov 

3T02 , 0 

J  not  equal,  j»T  0?  =  0 

J 1 oqi c  a  1  and.  (Io¬ 

bit)  9  T  0 1  .and. 

9T  02  =  9T0  1 

nov 

A  X , 8T0  1 

and 

AX , 9T02 

nov 

9 T 0  1 ,  AX 

112 


{branch  on  false 


•nov 

AL/3T01 

J 1 oad  value  into 

accumul at  or 

Cmo 

AL,0 

{compare  to  zero 

j  Z 

349 

{ j  umo  t  o  349  i  f 

f alse<=0) 

/assign  value  of  one  variable  to 

another  variable 

( 16-bi t ) 

■nov 

AX/ ACNU^ 

/assign  ACNUM 

nov 

AC5, AX 

/to  AC5 

349:  noo 

:define  location  399 

/ test  for  equal i ty 

between  NEXTAC 

and  3C 0 7  (16-oit) 

nov 

3T0  1  ,  1 

{presuppose  equality 

nov 

AX, NEXTAC 

/fetch  NEXTAC 

cmo 

AX,3C07 

/Compare  argunents 

j  2 

$f  4 

/ end  rout i ne  if 

t  rue 

nov 

3T01 ,0 

/not  eoua  1  ,  3T0 1  =  0 

?  test  for  equal i t  y 

between  AC6  and  3C02  (16-bit) 

nov 

3T02, 1 

{presuppose  equality 

nov 

AX,AC6  /* 

fetch  AC6 

cmo 

AX,iC02 

{compare  arguments 

j  2 

St4 

/ end  routine  if 

t  rue 

nov 

3T0?,0 

/not  equal ,  3T  02  =  0 

J 1 ogi cal  and.  ( 16- 

bit)  9T01  .and. 

3T02  =  3T01 

nov 

AX/3T01 

and 

AX,3T02 

nov 

3T01 , AX 

joranch  on  false 

nov 

AL/3T01 

/load  value  into 

accumul ator 

cmo 

AL,0 

/Compare  to  zero 

j  2 

350 

/ j  umo  to  350  if 

f  a  1 se (  =  0 ) 

;assign  value  of  one  variable  to  another  variable 


( 16-bi  t ) 

nov  AX/ACNJM  fassiqn  ACNU^ 

nov  AC  6 , AX  f  1 0  AC6 

350 :  noD  {define  location  350 

/test  for  equality  between  NEXTAC  and  3C0 8  (16-oit) 


nov 

3  T  0  1 ,  1 

/presuppose  equality 

nov 

AX, NEXTAC 

/•fetch  NEXTAC 

Cmo 

AX/3C08 

f  compare  arauments 

j  2 

$  +  4 

, end  routine  if 

nov 

3T01 ,0 

,not  equal ,  3T 0 1  s  0 

/test  for  equality  between  4C7  and  3C02  (lb-bit) 


nov 

3T02, 1 

ToresuDoose  equality 

nov 

AX, AC7 

/fetch  AC  7 

Cmo 

AX/3C02 

/Compare  arguments 

t  rue 


$♦4 


end  routine  it 


j  Z 


•no  v 

3T02,0 

{ not  equal ,  3(02  = 

0 

J 1 ogi cal 

and.  (16- 

bit)  3T  0 1  . 

and.  3T  02  =  3T0 1 

no  v 

AX, 3(01 

and 

AX, 3T02 

nov 

3T0 1 , AX 

» oranc h  on  false 

nov 

AL , *T0 1 

> 1 oad  value  into 

a:cui)u1  at  or 

cmo 

AL,0 

{compare  to  zero 

i  z 

<*51 

{ j  ump  t  o  35 1  if 

f al se(=0) 

{assign  value  of  one  variable 

to  another  variable 

(16-bit) 

nov 

AX, ACNUM 

{assign  ACNUM 

nov 

AC7, AX 

{to  AC  7 

<*51  : 

noo 

{define  location  351 

?  test 

for 

equa 1 i t  y 

between  NEXTAC  and  3C09  (lb-bit) 

nov 

3T  0  1  ,  1 

{oresuppose  equality 

nov 

A  X , ME  X ( AC 

{fetch  MEX(AC 

cno 

AX,3C09 

{compare  arpunents 

j  z 

$f  4 

{ end  rout i ne  if 

t  rue 

nov 

<*T  0  1 , 0 

{ not  equal ,  3T0 1  s 

0 

;  test 

for 

equal  i  ty 

between  ACS  and  3C02  (16-bit) 

nov 

3(02,  1 

{presuppose  equality 

nov 

AX, AC8 

{fetch  AC8 

C  m  o 

AX , 3C02 

{Compare  arguments 

j  z 

St4 

{end  rout i ne  if 

t  rue 

nov 

3T02*  0 

{not  equal ,  3(02  = 

0 

{logical 

and.  (16- 

bit)  3(01  . 

and.  3(02  =  3(01 

no  v 

AX, 3(01 

and 

AX, 3(02 

nov 

3(01, AX 

*  oranch  on  false 

nov 

AL,3T01 

{  1 oad  value  into 

accumul at  or 

cmo 

AL,0 

{compare  to  zero 

j  z 

352 

{ i umo  t  o  352  i f 

f al se(=0) 

{ ass i gn 

value  of  one  variable  to 

another  var i abl e 

( 16-bi t ) 

nov 

AX,  ACNUM 

{assign  ACNUM 

nov 

AC  8 , A  X 

{to  ACS 

352: 

noo 

{define  location  352 

{ test  for  equal i t  y 

between  NEXTAC 

and  3C 1 0  ( 1 6-b i t  ) 

nov 

3(01 ,  1 

{presuppose  equality 

nov 

AX,NEXTAC 

{fetch  NE  X ( AC 

Cmo 

AX , 3C  1  0 

{compare  arguments 

t  rue 


end  routine  if 


j  2 


nov  JT01.0  }  not  equal  ,  JT01  =  0 


;test  for  equality  between  AC?  and  a)C0?  (16-bit) 


■now 

JT02, 1 

.oresuooose  equality 

no  V 

AX. AC? 

• 

t 

fetch  AC? 

cmo 

AX, JC02 

.comoare  arqunents 

j  2 

sta 

» end  routine  if 

t  rue 

nov 

JT02 » 0 

»  not  equal  ,  a) T  0 2  =  0 

; 1 ogi cal 

and.  (16 

-bit)  JTO  1  . 

and  . 

JT02  =  JT  0  1 

nov 

AX.3T01 

and 

AX, JT02 

•nov 

JT 0 1 ,  A X 

J  branch 

on  false 

nov 

AL.JT01 

t l oad  value  into 

acc umul  ator 

cmo 

AL.O 

.compare  to  zero 

i  2 

J53 

»  j  umo  to  J53  if 

f alse(sO) 

; ass i gn 

value  of 

one  variable 

t  0 

another  variaole 

(16-bit) 

nov 

AX, ACNUM 

.assign  ACNJM 

nov 

AC?, AX 

Jto  AC? 

J53: 

noo 

tdefine  location  d)5 3 

.add  16- 

bit  NEXTAC  +  JC01  =  «T 0 1 

nov 

AX, NEXTAC 

.fetch  first 

arquuent 

add 

AX, JC01 

.add  second  argument 

to  first 

nov 

JTO  1 , AX 

.Store  answer  in  <JT01 

.assign 

value  of 

one  variable 

t  0 

another  variaole 

(16-bit) 


nov 

A  X , JTO 1 

; assi gn  JT01 

nov 

NEXTAC, AX 

.to  NEXTAC 

Jtest  for  equality 

between  NEXTAC 

and  JC  1  ?  (1 6-0 i t  ) 

nov 

JT01 ,  1 

Toresuooose  equality 

nov 

AX, NEXT  AC 

.’fetch  NEXTAC 

cmo 

AX, JC14 

.compare  arqunents 

j  2 

$♦« 

Tend  routine  if 

t  rue 

; branch 

nov 

on  false 

JT01 ,0 

.not  equal »  JTO 1  =  0 

nov 

AL, JT01 

; 1 oad  value  into 

accumu 1  at  or 

cmo 

AL.O 

»  c  omoa  re  to  zero 

j  2 

J5« 

»  j  ump  to  i)5?  if 

fal se ( =0 ) 

» ass i on 

value  of  one  variaole  to 

anot  her  variaole 

( 1 6-bi t ) 

nov 

AX, JCO? 

Tassign  JC02 

HOV 

NEXTAC, AX 

,*to  NEXTAC 

954: 

noo 

tdefine  location  954 

#  ass i gn 

value  of  one  variable  to 

anot  her  variable 

( 1 b-bi t ) 

nov 

AX,  i)C 02 

Jassiqn  9C02 

nov 

TLOGIN, AX 

;to  TLOGIN 

* 

Jorocedure  TLOGOU 

9TLDG0U: 

noo 

fent  ry  doi nt  for 

TlOGOU 

» detect 

condi t i on* 

type  i nDut  (  1  b 

-bit) 

i  n 

AX, 18  ;  sense  environmental  data 

• 

•nov 

keycha, AX 

9 

Jorocedure  LOGOUT 

9L0G0UT : 

noo 

lent  ry  ooi nt  for 

LOGOUT 

; ass i gn 

value  of  one  variable  to 

another  variable 

( 1 6-bi t ) 

•nov 

AX ,  9C02 

Sassiqn  9C02 

•nov 

ACNUM, AX 

,'to  ACNUM 

; detect 

C  ondi t i on* 

type  inout  (lb 

-bit) 

i  n 

AX, 19  ,'sense  environmental  data 

nov 

ACNUM,  AX 

;test  for  equality 

between  ACO  and  ACNUM  (lb-bit) 

nov 

9T  0  1 ,  1 

Joresupoose  equality 

nov 

AX, ACO 

;fetch  aco 

cmo 

AX, ACNUM 

JConoare  argunents 

j  z 

$t4 

?end  rout i ne  if 

t  rue 

nov 

9  T  0 1  ,  0 

?  not  equal ,  9T0 1  r  0 

» or anc h 

on  false 

nov 

AL  #  9T0  t 

f  1  oad  value  into 

accumul atop 

cmo 

AL,0 

(“compare  to  zero 

i  z 

955 

! j ump  t  o  955  i  f 

f alse(=0) 

J  ass i qn 

valje  of  one  variable  to 

another  variable 

( 16-bi t ) 

nov 

A  X , 9C  02 

; assign  9C02 

nov 

ACO, AX 

; t o  ACO 

955: 

noo 

:define  location  955 

Jtest  for  equality 

between  AC1  and  ACNUM  (16-oit) 

nov 

9T01 ,  1 

(“presuppose  equality 

nov 

AX, AC1 

Jfetch  AC  1 

Cmo 

AX, ACNUM 

(Compare  arguments 

i  z 

*♦4 

;  end  r ou  t i ne  if 

t  rue 

nov 

9  T  0  1 , 0 

Jnot  equal,  9T01  =  0 

» branch 

on  false 

nov 


AL,9T01 


;tos1  value  into 


accumul at  or 

cmo 

AL,  0 

•compare  to  zero 

j  2 

956 

J  j  umo  t  o  956  i f 

fa1se(=0) 

; assign 

value  of 

one  vari aol e 

to  another  variable 

( 16-bi t ) 

mo  v 

AX, 9C01 

{assign  9C01 

mov 

ACO, AX 

;to  aco 

956: 

noD 

:define  location  956 

;  test 

for 

equal  i  t  y 

between  AC2 

and  ACNUM  (lb-oit) 

mov 

9T0  1 , 1 

Joresupoose  equality 

mov 

AX,  AC2 

{fetch  AC2 

cmo 

AX, ACNUM 

Jcomoare  arguments 

j  2 

i  +  4 

{ end  routine  if 

t  rue 

mov 

9T01 , 0 

J  not  equal  ,  i)TU  1  =  0 

*  oranch 

on 

false 

mov 

AL, 9T01 

{ 1 oad  value  into 

accumul ator 

cmo 

AL ,  0 

{compare  to  zero 

j  2 

95  7 

{ j  umo  t  o  957  i f 

f al se(=0) 

; ass i gn 

value  of 

one  variable 

to  another  variable 

C  16-bi t ) 

mov 

A  X , 9C0  5 

{assiqn  9C03 

mov 

ACO, AX 

{to  ACO 

95  7: 

nob 

:define  location  957 

Jtest 

for 

equal i t  y 

between  AC3 

and  ACNUM  (16-bit) 

mov 

9T01  ,  1 

{presuppose  equality 

mov 

AX, AC3 

{ 'etch  AC3 

Cmo 

AX, ACNUM 

{compare  arguments 

j  2 

$♦4 

{end  rout i ne  if 

t  rue 

mov 

9T01  ,0 

{not  equal,  9T01  =  0 

/branch 

on 

false 

mov 

AL, 9T01 

{  l oad  value  into 

accumul ator 

Cmo 

AL ,  0 

{compare  to  zero 

j  2 

958 

{ j  umo  t  o  958  i f 

f alse(=0) 

; assign 

value  of 

one  vari abl e 

to  another  variable 

(16-bit ) 

mov 

AX, 9C04 

{assign  9C04 

mov 

ACO, AX 

,'to  ACO 

958: 

noo 

:define  location  958 

Jtest 

for 

equal i t  y 

oetween  AC4 

and  ACNUM  (lb-oit) 

mov 

9T01 , 1 

{presuppose  equality 

mov 

AX, AC4 

{fetch  AC 4 

cmo 

AX,  ACNUM 

{compare  arguments 

j  2 

$  ♦  4 

{end  routine  if 

t  rue 


nov  d>  T  0  1  #  0  {not  equal#  a>TUl  =  0 

t branch  on  false 

no*/  A|_,9T01  {  1  oad  value  into 

accumul at  or 

cmo  AL,Q  ; co^Dare  to  zero 

jz  ilS^  »jumo  to  959  if 

f al se(=0) 

{assign  value  of  one  variaole  to  another  variaole 
(16-bit ) 

nov  A  x  #  a)C  0  5  {assign  9C05 

nov  ACO , AX  ;to  ACO 

959:  noo  : define  location  959 

{test  for  equality  between  AC5  and  ACNUM  (lt»  —  oit) 


■nov 

9T01 , 1 

{oresuooose  equality 

nov 

AX, AC5 

{fetch  ACS 

Cmo 

AX, ACMUM 

{comDare  arguments 

jz 

5  +  9 

{end  rout i ne  if 

t  rue 

■nov 

9T01 ,0 

{not  equal ,  9T0 1  =  0 

{ branch 

on  false 

nov 

AL,9T01 

* 1 oad  value  into 

accumul  ator 

C  no 

AL,0 

{compare  to  zero 

j  * 

960 

{ j  uno  t  o  9b0  i f 

f al se(=0) 

{ assi gn 

value  of 

one  variable 

to  another  variable 

(16-bit) 

nov 

A  X , 9C  06 

{assign  9C06 

nov 

ACO, AX 

,'to  ACO 

960! 

noo 

{define  location  9b0 

{test  for  equality  between  AC6 

and  ACNU^  ( 1 6-b i t  ) 

nov 

9  T  0  1 ,  1 

{oresuooose  equality 

nov 

AX, AC6 

{fetch  AC6 

cmo 

AX, ACNUM 

{comoare  arguments 

j  z 

5  +  9 

{ end  rout i ne  if 

t  rue 

nov 

9101,0 

{not  equa 1 ,  9T0 1  =  0 

» or anch 

on  false 

nov 

AL,9T01 

{load  value  into 

accumul ator 

cmo 

AL ,  0 

{comoare  to  zero 

j  z 

961 

{ j  uno  t  o  96 1  if 

f al se(=0) 

{ assign 

value  of 

one  variable 

to  another  variable 

( 16-bi t ) 

nov 

A  X , 9C  0  7 

{assign  9C07 

nov 

ACO, AX 

,*to  ACO 

961 : 

noo 

{define  location  9b 1 

{test  for  equality  between  AC7  and  ACNU'l  (16-bit) 

nov  9101,1  {oresuooose  equality 

nov  AX , AC  7  {fetch  AC  7 


.  v.  S.  V- *»*  *.  •’. 

• 

— ■ 

C no 

AX,  ACNUM 

icon Dare  argunents 

. 

)Z 

$♦4 

} end  routine  if 

_ ; 

t  rue 

• 

■no  v 

3T01.0 

; not  equal ,  3T0 1  =  0 

* oranch 

on  false 

nov 

AL , 9T  0 1 

» 1 oad  value  into 

accunul ator 

cno 

AL ,  0 

Jcomoare  to  zero 

-  • 

*  •- 

j  z 

n)62 

} j  umD  t  o  962  i f 

• 

f al  se(sO) 

*  ass i qn 

value  of 

one  variaole 

t  0 

another  variaole 

(16-bit) 

•nov 

A  X , 9C08 

lassiqn  9C08 

■nov 

ACO, AX 

Jto  ACO 

-  i 

362: 

noo 

:define  location  3n? 

• 

» test  for  equal i tv 

between  AC9 

and  ACNUM  (16-oit) 

■nov 

3T0 1 »  1 

ioresuDDose  equality 

■nov 

AX, ACS 

• 

9 

fetch  AC 8 

cmo 

AX, ACNUM 

icomoare  argunents 

j  z 

Sf4 

» end  routine  if 

- 

t  rue 

• 

nov 

a)T  0 1 , 0 

J  not  equal ,  9T0  1  s  0 

. 

; oranch 

on  false 

y.* 

■nov 

AL,3T01 

» 1 oad  value  into 

*/■ 

accumul ator 

c  wo 

AL,  0 

Jcomoare  to 

j  Z 

363 

w  w  M  a  1  t  v  v  c  c  i  v 

5  j  umo  to  963  if 

f al se(=0) 

j 

; assi gn 

value  of 

one  variable 

t  0 

another  variaole 

(16-bit) 

.•y  ■ 

■nov 

AX, 9C09 

Jassign  3C09 

.  «* 

nov 

ACO, AX 

;to  ACO 

363: 

noo 

:define  location  9o3 

_ _ 

» test  for  equality 

between  AC9 

and  ACNUM  (16-oit) 

.  * 

nov 

a)  T  0  1 ,  1 

JoresuDDOse  equality 

nov 

AX, AC9 

• 

f 

fetch  ACM 

■* .  •. 

Cno 

AX, ACNUM 

} compare  argunents 

i  z 

$♦4 

; end  routine  if 

t  rue 

9 

nov 

9T01 ,0 

» not  equal,  9T01  =  0 

V  V 

; oranch 

on  false 

„  v 

* 

nov 

AL , 9T0 1 

»  1  oad  value  into 

•  V 

•’ .  < 

accunul ator 

Cmo 

AL ,  0 

rcontoare  to  zero 

V  •  *  * 

j  z 

964 

r  j  uno  t  0  964  i f 

• 

- 

f al se(sO) 

; ass i qn 

value  of 

one  variaole 

t  0 

another  variaole 

( 16-oi t ) 

* 

nov 

AX , 9C 1 0 

; assign  9C 1 0 

•y< 

nov 

ACO, AX 

,*to  ACO 

■ * 

364: 

noD 

:define  location  9o4 

f 

119 

.-'vi 


•assign 

value  of  one  variable  to 

another  variable 

(16-bit ) 

■no  v 

AX, 0CO2 

; ass i on  0CO2 

* 

■no  v 

TL3G0U, AX 

;to  TLOGOU 

9 

•orocedure  POSCH 

0POSCH: 

noo 

•entry  ooi nt  for 

P3SCH 

•detect 

condition- 

t yoe  i nout  (16- 

bit) 

i  n 

AX, 20  1  sense  environmental  data 

■no  v 

NErfPOS, AX 

» test  for  equal i ty 

between  N)E/fP0S 

and  0CO1  (16-oit) 

•no  v 

0T  0  1 ,  1 

ioresupw'ose  equality 

■no  v 

A  X , NErtPQS 

•‘fetch  NErtPOS 

Cno 

AX , iC  0 1 

Jcomoare  arguments 

j  Z 

*♦4 

•  end  routine  if 

t  rue 

TtOV 

i»T  0  1 ,0 

•not  equal ,  0TO 1  =  0 

; branch 

on  false 

■nov 

AL,0TO1 

» 1 oad  value  into 

accumul at  or 

cmo 

AL ,  0 

•compare  to  zero 

j  * 

065 

•  j  ump  t  o  065  i f 

f al se(=0) 

•assign 

value  of  one  variable  to 

another  var i abl e 

( 1 6-bi t ) 

■nov 

AX , 3C0  1 

•assign  0CO1 

nov 

POSCH, AX 

;to  posch 

065 : 

• 

noo 

rdefine  location  065 

• 

procedure  °OSUPO 

0POSUPD: 

noo 

•entry  point  for 

PDSUPO 

•  detect 

Condi t i on* 

tyoe  inDut  (16- 

bit) 

i  n 

AX, 21  {sense  environmental  data 

nov 

POSITI, AX 

•assign 

value  of  one  variable  to 

another  variable 

( 1 6-b i t ) 

nov 

A  X , 0C  0  2 

^assign  0CO2 

• 

nov 

POSCH, AX 

;to  posch 

9 

•orocedure  MSSIN 

0MSGIN: 

noo 

•’entry  point  for 

MSGIN 

»  detect 

condi t i on* 

tyoe  i nout  (16- 

bit) 

i  n 

AX, 22  Jsense  environmental  data 

nov 

MSGREA, AX 

•test  for  equality 

between  MSGREA 

and  0CO1  (1 b-oi t  ) 

nov 

0TO1,  1 

ioresuDDose  equality 

nov 

AX, MSGREA 

•fetch  MSGREA 

cmo 

A  X  ,  9C  0  1 

;comoare  arguments 

j  Z 

S  +  g 

lend  routine  if 

t  rue 

HO  V 

9T01 ,0 

1  not  equal  ,  9T0  1  =  0 

*  oranch 

on  false 

HO  V 

AL,9T01 

1 1 oad  value  into 

accufu 1  at  or 

cmo 

A L,  0 

Iconoare  to  zero 

j  z 

966 

1  j  umo  to  966  i f 

f  a  1 se ( =  0 ) 

; assign 

valje  of  one  variable 

t  0 

anot  her  vari aol e 

(16-bit) 

HO  V 

AX, 9C01 

1  ass i an  9C 0 1 

HO  V 

MSGIN, AX 

Ito  MSGIM 

966: 

noo 

:define  location  9ob 

9 

lorocedure  MS3ST0 

9msgsto 

:  noo 

ientry  Doint  for 

MSGSTO 

; detect 

condi t i on- 

tyoe  inout 

(16- 

bit) 

i  n 

AX, 23 

Isense  environmental  data 

HO  V 

MESSAG, Ax 

;  send 

condi t i on-t yoe  outout  (16-bit) 

HOV 

AX, MSGSCV 

1 i ssue  cont  rol 

out 

72,  AX 

;  test 

for  equal i t y 

between  MEXTMS 

and  9C02  (1 b-oi t  ) 

HOV 

a)  T  0  1  ,  1 

JoresuPDose  equality 

HOV 

AX , NEX  ?  MS 

; fetch  NEXTMS 

C<no 

AX , iC  02 

(Comoare  arguments 

iz 

$+ q 

lend  rout i ne  if 

true 

HOV 

9T0  1 , 0 

1  not  equal ,  9T0 1  =  0 

1  oranch 

on  false 

HOV 

AL , 9T0 1 

J 1 oad  value  into 

accunul ator 

C  H  o 

AL ,  0 

Icomoare  to  zero 

j  z 

96  7 

1 j  umo  to  967  if 

f  a  1 se ( =  0 ) 

Sassign 

value  of  one  variable 

t  0 

anot  her  variable 

( 1 6-bi t ) 

HOV 

AX, MESSAG 

1  ass i gn  MESSAG 

HOV 

AC0, AX 

i  to  aco 

967: 

noD 

Idefine  location  9b7 

?  t  est 

for  equal i t  y 

between  MEXTMS 

and  9C0 1  ( 1 b-o i t  ) 

HOV 

910  1,1 

loresuoDose  eoualitv 

HOV 

AX , NEX  TMS 

1  fetch  MEXTMS 

cmo 

AX, 9C01 

Icomoare  arguments 

i  z 

sta 

lend  routine  if 

t  rue 

HOV 

ST  0  1 , 0 

1  not  equal  ,  9T 0 1  =  0 

Joranch 

on  false 

*0  V 


AL,9T01 


load  value  into 


accumul at  or 


cmo 

AL  *  0 

Jcomoare  to  zero 

j  z 

£68 

J j  umo  t  o  £b8  i f 

f al se(=0) 

J  assi gn 

value  of 

one  variable 

to  another  variaole 

(16-bit ) 

•no  v 

AX,«ESSAG 

Jassign  ^ESSAG 

mo  v 

AC1 , AX 

;  t  o  AC  1 

£68: 

noo 

:define  location  £b8 

J  test 

for 

equal i t  y 

between  MEXT^S  and  £C03  (lb-oit) 

•no  v 

£T  0  1 , 1 

Joresuooose  equality 

•no  v 

AX, NEXTMS 

; fetch  NEXTMs 

ClIO 

A  X , £C0  3 

Jcomoare  arguments 

i  z 

t  +  4 

»  end  routine  if 

t  rue 

mo  V 

£T01 ,0 

J not  equal »  £T0 1  =  0 

J oranch 

on 

false 

mo  V 

AL,£T01 

J 1 oad  value  into 

accumul ator 

CUD 

AL ,  0 

Jcomoare  to  zero 

j  z 

£69 

J j umo  t O  £69  i f 

fa1se(=0) 

?  ass i qn 

value  of 

one  variable 

to  another  variaole 

( 16-bi t ) 

■no  v 

AX,«ESSAG 

Jassign  ^ESSAG 

mov 

AC2,AX 

J  t  o  AC2 

£69: 

noo 

:define  location  £b9 

J  t  est 

for 

equal i ty 

between  NEXTMS  and  £C04  (16-oit) 

■nov 

£T01,  1 

Joresuooose  equality 

■nov 

AX, NEXTMS 

: fetch  NEXTMS 

Chid 

AX, £C  0  4 

Jcomoare  arguments 

j  z 

S  ♦  4 

J  end  routine  if 

t  rue 

•nov 

£T0 1 , 0 

J  not  eaual ,  £T0 1  =  0 

; oranch 

on 

false 

mo  V 

AL , £T  0 1 

Jload  value  into 

aicunu 1  at  or 

C  mo 

AL ,  0 

Jcomoare  to  zero 

j  z 

£70 

Jjumo  to  £70  if 

false(=0) 

; assign 

value  of 

one  var i aol e 

to  another  variable 

( 16-bi t ) 

■nov 

Ax,M£SSAG 

J  ass i qn  MESSAG 

■nov 

AC  3, AX 

Jto  AC 3 

£70: 

noo 

:define  location  £70 

;  test 

for 

equality 

between  NEXTMS  and  £C05  (lb-oit) 

•nov 

£T  0  1  ,  1 

Joresuooose  equality 

■nov 

AX,NEXT«S 

J  fetch  NEXTMS 

Cmo 

AX , £C05 

Jcomoare  arguments 

j  Z 

$  1 4 

Jend  routine  if 

t  rue 


9T01 ,0 


not  equal  *  -D T 0  1 


0 


■now 


loranch  on  false 


accumul at  or 

1*0  V 

AL  *  9T  0  1 

J 1 oad  value 

into 

Cno 

AL ,  0 

icon'oare  to 

zero 

false(=0) 

j  z 

37  1 

J  j  uno  to  i)  7  1 

i  f 

Jassign  value  of  one  variaole  to  another  variaole 
(16-bit) 

nov  AX, MESSAG  Jassign  m^SSAR 

tov  AC4,AX  ; to  ACM 


971:  noo  {define  location  471 

Jtest  for  equality  between  NEXTMS  and  9C06  (lb-oit) 


•nov 

9T01 ,  1 

Joresuooose  equality 

1*0  V 

A  X , NE  X  T  MS 

; fetch  NEXTMS 

Cmo 

A  X , 9C  06 

?cono are  arqunents 

j  z 

$  ♦  4 

J end  routine  if 

t  rue 

•nov 

9T01 , 0 

» not  equal »  9T  0  l  =  0 

J oranch 

on  false 

■nov 

AL,9T0l 

J 1 oad  value  into 

accunul at  or 

C  m  a 

AL ,  0 

iconoare  to  zero 

i  Z 

372 

J  j  umD  to  372  if 

f al se(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bi t) 

nov  AX, MESSAG  Jassign  MESSAG 

nov  ACS#  AX  J  to  ACS 


372:  noP  {define  location  37? 

Itest  for  equality  between  NEXTMS  and  3C07  (lb-oit) 


nov 

9T01 , 1 

loresuDoose  equality 

nov 

AX, NEXTMS 

J  fetch  NE X 1  MS 

Cno 

AX , 3C07 

icomo are  argunents 

j  Z 

$*  <4 

J  end  routine  if 

t  rue 

J  o  ranc  h 

nov 

on  false 

9  T  0  1 , 0 

J  not  equal  ,  9T0 1  =  0 

nov 

AL, 9T01 

J  1  oad  value  into 

accumul at  or 

Cm3 

AL ,  0 

Jcono are  to  zero 

j  Z 

973 

J j  uno  to  973  if 

fa!se(=0) 

J assi gn 

value  of  one  variaole  to 

anot  her  variable 

(16-bit) 

nov 

AX, MESSAG 

Jassiqn  ss  AG 

nov 

AC6, AX 

,’to  AC6 

373: 

njD 

{define  location  373 

» test  for  equal i t  y 

between  NEXTMS 

and  9C08  (lb-oit) 

nov 

9T0 1  *  1 

foresuoDose  equality 

nov 

AX, NEXTMS 

J  fetch  NtXlMS 

» 

Cmo 

AX.9C08 

/compare  arquments 

i  z 

S  +  4 

} end  routine  if 

a 

t  rue 

now 

9T01 ,0 

.not  equal,  iiTOl  =  0 

• 

} oranch 

on  f a  1 se 

•  \  '• 

now 

AL.9T01 

/ 1 oad  value  into 

accumu 1  at  or 

cmo 

AL.O 

.compare  to  zero 

j  z 

974 

/jump  to  974  if 

• 

false(=0) 

.’assign 

value  of 

one  variable 

to  another  variable 

C 1 6-b i t ) 

now 

AX.MESSAG 

/assign  MESSAG 

nov 

AC7 ,  AX 

; t o  AC 7 

97a: 

noo 

tdefine  location  974 

• 

/test  for  eguality 

between  NEXTMS  and  9C09  (16-oit) 

now 

9T01  ,  1 

.oresupoose  equality 

now 

AX, NEXT^S 

/  fetch  NEXT'S 

Cmo 

AX.9C0O 

.•compare  arguments 

i  z 

$♦4 

» end  rout i ne  if 

-  • 

t  rue 

now 

9101 ,0 

.not  equal,  9T01  =  0 

i 

.Branch 

on  false 

now 

AL.9T01 

» 1 oad  value  into 

*  ..'•  -  •_ 

accumul ator 

Cmo 

AL.O 

Jcomoare  to  zero 

iz 

<975 

/ i umo  to  975  if 

1 

f al se(=0) 

»  assign 

value  of 

one  variable 

to  another  wariaole 

-\\  \ 

(  16-bi t ) 

nov 

AX, "ESSAG 

/assiqn  MESSAG 

now 

AC8,  AX 

Jto  AC« 

975: 

noo 

:define  location  975 

»  __ 

/test  for  equal i t  y 

between  NEXTMS  and  9C 1 0  (16-oit) 

now 

9  T  0  1 ,  1 

.'oresupoose  equality 

now 

AX,NEXTMS 

.•fetch  NEXT'iS 

Cmo 

AX.9C10 

Icomcare  arguments 

j  Z 

$  +  4 

/end  rout i ne  if 

t  rue 

nov 

9T  0  1 , 0 

/ not  equal ,  9T 0 1  =  0 

ft 

/branch 

on  false 

now 

AL.9T01 

/load  value  into 

accumul  ator 

cmo 

AL.O 

/compare  to  zero 

j  z 

97b 

/ j  umo  to  9  7b  if 

1 

f alse(sO) 

.assign 

value  of 

one  variable 

to  another  variable 

(16-bit) 

now 

AX, VESSAG 

/assign  wfSSAG 

now 

AC«),  AX 

/to  AC9 

976: 

noo 

/define  location  97b 

ft 

2 


Jadd  16-bit  NEXTMS  ♦  3C01  s  S»T 0 1 

mov  AX, NEXTMS  J  fetch  first 

argument 

add  AX,3C01  Jadd  second  argument 

to  first 

mov  3T01»Ax  Jstore  answer  in  3T01 

Jassign  valje  of  one  variable  to  another  variable 
(16-bit ) 

mov  AX,3T01  Jassign  3T01 

mov  NEXTMS, AX  Jto  NEXTMS 

Jtest  for  eguality  between  NEXTMS  and  3C  1  4  (16-oit) 


mov 

3T01 ,  1 

JoresuDoose  eguality 

mov 

AX, NEXTMS 

J  fetch  NEXTMS 

cmo 

AX,3C14 

Jcomoare  arguments 

j  2 

$  +  4 

Jend  routine  if 

t  rue 

mov 

3T0  1 »  0 

J  not  eaual ,  3TQ  1  -  0 

J  oranch 

on  false 

mov 

AL,3T01 

J 1 oad  value  into 

accumul ator 

Cmo 

AL » 0 

Jcomoare  to  zero 

j  2 

377 

J  j  umo  to  377  if 

f alse(=0) 

Jassign 

val  ue 

of  one  variaDle  to 

another  variable 

( 16-bi t ) 

mov 

A  X , 3C  02 

Jassign  3C02 

mov 

NEXTMS, AX 

Jto  NEXTMS 

377: 

noD 

Sdefine  location  377 

J  def i ne 

8-bi  t 

data  constant 

3C01 

egu 

1 

J  def i ne 

8-bi  t 

data  constant 

3C02 

egu 

0 

J  def i ne 

8-bit 

data  constant 

3C0J 

egu 

2 

J  def i ne 

8-bi  t 

data  constant 

3C04 

egu 

3 

♦define 

8-bit 

data  constant 

3C05 

egu 

4 

J  def i ne 

8-b  i  t 

data  constant 

3C06 

egu 

5 

J  def i ne 

8-bit 

data  constant 

3C07 

egu 

6 

J  def i ne 

8-bit 

data  constant 

3C08 

egu 

7 

♦define 

8-bi  t 

data  constant 

3C09 

egu 

8 

J  def i ne 

8-bit 

data  constant 

3C10 

egu 

9 

J  def i ne 

8-bit 

data  constant 

3C1 1 

egu 

30 

J  def i ne 

8-bi  t 

data  constant 

SC12  equ  20 

#define  8-bit  data  constant 
3C13  equ  15 

Idefine  8-bit  data  constant 
3C19  equ  10 

^define  8-bit  storage 

oro  1023  ;  8  oit  variable  i>T01 


in  ram 

3T0 1 :  do  0 

ora  986521  jrom  address  oointer 


Idefine  8-bit  storage 


org 

1023 

; a  bit  variable  iT02 

i  n  ram 

3T02: 

do  0 

• 

org 

986521 

from  address  oointer 

9 

• 

9 

• 

-  mon i t  or 

section 

9 

Sspvsr 

:  mov 

AXritable 

# i ni t  a  1 i ze  table 

pointer 

mov 

iont  r • Ax 

t  to  beginning 

im 1  op  S 

mov 

BX  , 3ont  r 

; moni tor  1 ooo 

i  nc 

BX 

i  nc 

BX 

i  nc 

BX 

mov 

iont  r#8X 

; 

• 

9 

m 

j  mo 

8X 

-  data  section 

9 

org 

1023 

3ont  r : 

d 

0 

r  t  ab 1 e  entry 

address  pointer 

orq 

986521 

;rom  address  oointer 

Stable 

:  dw 

iont  r 

rtable  header 

(define  too) 

j  mo 

it  KEY INM 

;test  for 

c  ont i ngency 

KEYIN'* 

J  mo 

it^INTAC 

rtest  for 

cont i ngencv 

yiNTAC 

j  mo 

itSMMANU 

;test  for 

c  ont i nqenc v 

SMMANJ 

j  mo 

itS^AUTO 

» test  for 

contingency 

SMAUTO 

j  mo 

it  TPOLL 

;  test  for 

c  ont i ngency 

TPOLL 

j  mo 

it'*L0CAT 

;  test  for 

cont i ngency 

^LOCAT 

j  mo 

it  TML0C  A 

#  test  for 

contingency  T^LOCA 


j  mo 


it  POSCH 


test  for 


conti ngency 

POSCH 

j  TtO 

<i> t  MMSGDS 

J 1  e  s  t 

for 

c  ont  1 ngency 

MMSGDS 

j  no 

St MCLOCK 

?  t  e  st 

for 

• 

cant i ngency 

MCLOC< 

j  no 

StMLOGlN 

;  test 

for 

conti ngency 

MLOGIN 

i  no 

3t  TLOGIN 

?  test 

for 

conti ngency 

C  ont i ngency 

TLOGIN 

j  no 

TLOGOJ 

j  no 

at  TLOGOU 

atMSGIN 

J  t  est 

;  test 

for 

for 

• 

conti ngency 

MSGIN 

j  no 

at  MSG  IN 

J  test 

for 

•  J 

Cont i ngency 

table 

MSGIN 

j  no 

asovsr 

J  go  to 

start  of 

■ 

i 

StKEYINM:  call 

S<E  Y INM 

Jexecute 

contingency  code  KEYINM 

.  '  '-4 

CUP 

KEYINM,! 

Jcomoare 

» 

Contingency  result  to 

i  it 

$  ♦  5 

» t  rue  flag  ( 1  ) 

.if  false  do  not 

execute  KBINPM 

call 

5KBINPM 

.execute  task 

K3INPM  if  true 

j  no 

J 

atMirmc:  call 

am  1  oo 

J  ret  urn  to  non i tor 

#  _ 

SMINTAC 

.execute 

.  • 

contingency  code  MINTAC 

c  no 

M I N  f  AC » 1 

.compare 

contingency  result  to 

i  n* 

S  ♦  5 

J  t  rue  flag  ( 1 ) 

J  i  f  false  do  not 

*i'-Z 

execute  INTAC 

call 

SINT  AC 

.execute  task  INTAC 

i f  t  rue 

j  no 

• 

Sm  1  oo 

J  return  to  noni tor 

» 

9 

atSMMANU:  call 

asMM*niu 

Jexecute 

contingency  code  SMMANU 

c  no 

SMMANU. 1 

J  compare 

y:  i 

'j, 

contingency  result  to 

j  “*t 

$  ♦  5 

» t  rue  flag  ( 1  ) 

.if  false  do  not 

» " ' : 

execute  MANUAL 

call 

SMANUAL 

Jexecute  task 

MANUAL  i f  t  rue 

j  no 

tim  1  oo 

Jreturn  to  monitor 

}  » 
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StSMAUTO:  call 

aSMAUTO 

{execute 

contingency  code  SMAUTO 

cmo 

SMAUTO, 1 

; comoare 

contingency  result  to 

i 

S  ♦  5 

{true  flag  (  1  ) 

{ i f  false  do  not 

execute  AUTO 

call 

a  A  J  T  0 

{execute  task  AJTO 

i f  t  rue 

j  ho 

m 

an  1  oo 

{return  to  monitor 

atTPOLL:  call 

iTPOLL 

{execute 

contingency  code  TPDLL 

C  HD 

TPOLL,  1 

{comoare 

contingency  result  to 

S  ♦  5 

{true  flag  ( 1 ) 

{  i  f  false  do  not 

execute  POLLAU 

call 

3P0LLAU 

{execute  task 

P3LLAU  if  true 

j  HO 

• 

3x1  1  OD 

{return  to  monitor 

itMLOCAT:  call 

3ML0CAT 

{execute 

contingency  code  ML3CAT 

C  HD 

mlocat, 1 

{comoare 

contingency  result  to 

i  HZ 

S  ♦  5 

{true  flag  ( 1 ) 

{if  false  do  not 

“ 

execute  LOCATI 

call 

aLOCATJ 

{execute  task 

LOCATI  if  t  rue 

j  HD 

• 

am  1  oo 

{return  to  monitor 

itTMLOCA:  call 

STMLOCA 

{execute 

contingency  code  TMLOCA 

C  HO 

TMLOCA,  1 

{ comoare 

contingency  result  to 

i  nz 

$  t  5 

{true  flag  ( 1 ) 

{if  false  do  not 

execute  MANLOC 

call 

3MANL0C 

{execute  task 

MANLOC  if  true 

j  HO 

• 

3m  1  oo 

{return  to  non i t  or 

9 

atPOSCH:  call 

3P3SCH 

{execute 

, 

contingency  code  °OSCH 

C  HO 

POSCH,  1 

{ comoare 

contingency  result  to 

jo* 

S  ♦  5 

{ t  rue  flag  ( 1  ) 

{if  false  do  not 

execute  POSJPD 


k\  »*•  . 


P3SUP0  if  true 


call 


9P0SUPD 


execute  task 


j  no 

StMMSGDS:  cal\ 

contingency  code  MMSGOS 

CTO 

contingency  result  to 


execute  MSGDSP 
MSGOSP  if  true 


i  "»z 
cal  1 


j  -no 

? 

St  MCLOCK :  call 

contingency  code  MCLOCK 


cuo 

contingency  result  to 


execute  CLOCKS 
Clocks  i f  t rue 


j  nz 
call 
j  no 


StMLOGIN:  call 

contingency  code  ML3GIN 

c  ho 

contingency  result  to 


execute  LOGINO 
LOG  I NO  if  true 


j  nz 
cal  1 

j  HO 


9m  1  oo 
SMMSGOS 
M«SGDS,  1 

S  ♦  5 
9MSGDSP 
3m  1  oo 
3*CL0CK 
MCLOCK,  1 

$  ♦  5 
9CL0CKS 
3ml  oo 
9ML0GIN 
MLOGIN,  1 

S  ♦  5 
9LOGINO 
3m  1  oo 


StTLOGIN:  call 

contingency  code  TLDGIN 


CTO 

contingency  result  to 


execute  LOGIN 
i f  t  rue 


j  n? 
call 
j  HO 


it  TLOGOU :  call 

contingency  code  TLOGOU 

cho 


3TL0GIN 
TLOGIN, 1 

S  ♦  5 
3L0GIN 
3m  1  oo 
3TL0G0U 
TLOGOU, 1 


♦return  to  monitor 

; execute 

t comoare 

} t  rue  flag  ( 1 ) 

»  i  f  false  do  not 

♦execute  task 

?  return  to  moni tor 

J  execute 

♦comoare 

1 1  rue  flag  ( 1 ) 

♦if  false  do  not 

♦execute  task 

♦return  to  monitor 

; execute 

, comoare 

; t  rue  flag  (1) 

?  i  f  false  do  not 

♦execute  task 

»  return  to  moni tor 

; execut  e 

; comoare 

♦true  flag  (1) 

;  i  f  false  do  not 

♦  execute  task  LOGI'x 

♦  return  to  moni tor 

♦execute 

♦comoare 


contingency  result  to 


i  nz 

$  ♦  5 

execute  LOGOUT 

cal  1 

9L  0G0UT 

L  3G0U  Tift  rue 

j  mo 

9m  1  oo 

» 

itMSGIN: 

call 

9MSGIN 

contingency  code 

'iSSIN 

c  mo 

MSGn,  I 

contingency  resul 

t  to 

j  "»z 

S  ♦  5 

execute  wSGSTO 

call 

9MSGST0 

MSGSTO  i f  t  rue 

j  mo 

9m  1  oo 

end 

complete 

itrue  flag  (1) 

{if  false  do  not 

(execute  task 

('return  to  monitor 

Jexecute 

{  c  omoa  r e 

{ t  rue  flag  ( 1  ) 

{  i  f  false  do  not 

{execute  task 

{return  to  monitor 
{software  listing 


this  realization  consumes  71.180  wacts  of  power 
and  contains  16?.  chips. 


APPENDIX  E 


NErfCSDL.FOP  3UTPUT 
LISTING  (HARDWARE) 


central  orocessing  unit 
device:intel  8086  n  i  e  roor  oc  essor  ( tiax -mode*  no 

njo) , i c 1 

connect i ons : 
pins 

16, 15, 1«, 13, 12, II, 10, 9, 8, 7, 6, 5, «,i,2,39, 38, 37, 56, 55  = 

a(0: 19) 

pins  16, 15, 14, 13, 12, tl, 10, 9,8, 7, 6, 5, 4, 3, 2, 39  = 

d(0: 15) 

pin  17  (nni)  s  gnd 

pin  18  (intr)  =  gnd 

pin  19  s  elk 

pin  34  s  ohe-bar 

pin  33  (mo/max-bar)  =  gnd 

pin  32  (rd-bar)  =  n.c. 

pin  31  (rq-bar/qt 0-bar )  =  n.c. 

pin  30  ( rq-bar/gt 1 -bar )  -  n.c. 

pin  29  (lock-bar)  =  n.c. 

pin  28  -  s2-bar 

pin  27  =  sl-bar 

pin  26  *  sO-bar 

pin  25  (qsO)  s  n.c. 

pin  24  ( qs 1 )  *  n.c. 

pin  23  (test-bar)  =  gnd 

pin  22  =  ready 

pin  21  =  reset 

pins  1,20  s  gnd 

pin  40  =  *5v 

clock  generator  (0.125  us 
device:  iotel  8284  clock  gen  and  driver  for  80Rt> 

c  3u ,  ic2 

connect i ons : 
oin  1  (csync)  =  qnd 
pin  3  (aenl-bar)  =  qnd 
pin  4  (rdvl)  =  +5v 
pin  5  (ready)  =  ready 
pin  6  (rdy2)  =  gnd 
pin  7  (aen2-bar)  =  and 
pin  8  s  elk 
oin  10  s  reset 
oin  11  —  r es-bar 
pin  13  (f/c-bar)  =  gnd 
pin  14  (efi)  =  gnd 
pin  15  (async-bar)  s  *5v 

Dins  lb, 17  (xtal(l:2))  =  device:  24  mh*  crystal 


oins  9  =  god 
Din  18  =  *5v 

octal  bus  transceiver/data  bits  0:7 
device:  intel  8286  octal  Dus  transceiver,  i c  3 
connect i ons : 

Dins  19,18,17,16,15,19,15,12  (db(0:7))  =  do(0:7) 

Din  1  (aO)  =  d(0) 

oin  2  (.al)  =  d(l) 

oin  3  (a2)  =  d(2) 

oin  9  (aS)  =  d(3) 

oin  5  (a9)  =  d(9) 

oin  6  (a5)  =  d(5) 

oin  7  (a6)  =  d(6) 

oin  8  (a7)  -  d(7) 

oin  9  (oe-oar)  -  .not.  den 

oin  11  (t)  =  dt/r-oar 

oin  10  =  gnd 

oin  20  =  f5v 

octal  bus  t ranscei ver/data  bits  8:15 
device:  intel  8286  octal  bus  transceiver,  ic9 
connect i ons : 

oins  19,18,17,16,15,19,15,12  (db(0:7))  s  do(b:15) 

oin  1  (aO)  =  d(0) 

oin  2  (al)  =  d(l) 

oin  3  ( a2 )  =  d(2) 

oin  9  (a3)  =  d(3) 

oin  5  (a9)  s  d(9) 

oin  6  (a5)  =  d(5) 

oin  7  (a6)  =  d(6) 

Din  8  (a7 )  =  d(7) 
oin  9  (oe-Dar)  =  .not.  den 
oin  11  (t)  =  dt/r-bar 

oin  10  ~  gnd 
oin  20  =  ♦ 5v 
ous  cont  roller 

device:  intel  8288  ous  controller  for  8086  cou,  i  c ' 
connect i ons : 
oin  19  =  sO-bar 
oin  3  =  si -bar 
oin  18  =  s2-bar 
oin  2  =  elk 
Din  5  =  ale 
oin  16  -  den 
oin  9  =  dt/r-bar 
oin  6  (ae-oar)  =  gnd 
oin  1  (iob)  =  t5v 
oin  7  =  Tirdc-bar 
oin  9  =  nwtc-bar 
oin  11  s  i owc-bar 
oin  13  =  iorc-bar 
oin  19  s  iota-bar 


(aO)  = 
(al)  = 
( a2 )  = 
( a  3 )  = 
C  a  9  )  = 

( a5 )  = 
(ab)  = 


8288  ous  controller  for  8086  cou. 


■j « -  .  - 

w V.  aV v.v.v.v 


Din  15  (cei)  =  +  5v 
oin  10  -  and 
oin  20  s  +  5v 

octal  latch/address  cits  0:7 
device:  intel  8282  octal  latch  for  8086  cou,  ic6 
connect  ions: 

oins  1,2, 3, 4, 5, 6, 7, 8  (di(0:7))  =  a(0:7) 

Dins  19,18,17,16,15,14,15,1?  (do(0:7)  =  a(0:7) 

oin  9  (oe-oar)  =  qnd 

oin  11  (sto)  =  ale 

oin  10  s  qnd 

oin  20  =  *5v 

octal  latch/address  oits  9:15 
device:  intel  8282  octal  latch  for  8086  cdu,  i  c  7 
connect  i  ons : 

Dins  1,2, 5, 4, 5, 6, 7, 8  (di(0:7))  s  a(R:15) 

oins  19,18,17,16,15,14,13,12  (do(0:7))  =  a ( 8 : 1 5 ) 

oin  9  (oe*oar)  =  qnd 

oin  11  (sto)  =  ale 

oin  10  s  qnd 

oin  20  =  *5v 

octal  1 atch/address  oits  lb:19 
device:  intel  8282  octal  latch  for  8086  cou,  ic8 
connect i ons : 

oins  1,2, 3, 4  (di (0:3) )  =  a(16:19) 

oins  19,18,17,16  (do(0:3)  =  a(l6:19) 

oins  5,6, 7, 8  (di(3:7))  =  qnd 

oin  9  (oe-oar)  =  qnd 

oin  11  (sto)  s  ale 

oin  10  -  qnd 

Din  20  -  *5v 

address  decoder/address  for  iteiiory  select 
device:  intel  8205  l-of-9  binary  decoder, ic9 
connec  t i ons : 


oi  n 

IS 

( o ( 0 ) )  =  csu-oar  ( l ) 

oi  n 

14 

(o(D)  5  csu-oar(2) 

oi  n 

13 

(o(2))  =  csu-oar(3) 

oi  n 

12 

(o(3) )  =  cs u*6ar ( 4) 

oi  n 

1  1 

( o ( 4 ) )  s  csu-Dar ( 5 ) 

oi  n 

10 

(o(5))  =  csj-bar(6) 

oi  n 

9 

( o ( 6 ) )  ~  c su-bar  (  7 ) 

oi  n 

7 

(o ( 7 ) )  s  csu-oar(8) 

oin 

1 

=  a  ( 1 5 ) 

oi  n 

2 

=  a(18) 

oi  n 

3 

=  a  ( 1  7 ) 

oi  n 

4 

(el-oar)  =  a(0) 

oi  n 

5 

(e2-oar )  =  a ( 1 8  ) 

oi  n 

6 

(e3)  -  .not.  a(19) 

oi  n 

8 

=  qnd 

oi  n 

16 

s  ♦  5  v 

address  decoder/address  for  ■nenory  select 


device:  intel  8205  l-of-8  binary  decoder,  i  c  1  0 
connec  t i ons : 


oi  n 

15 

( o( 0 1 )  =  c  su-oar ( 9 ) 

oi  n 

14 

( o ( 1 ) )  =  c  su-oar ( 1 0 ) 

oi  n 

13 

( o ( 2 ) )  s  csu-bar(ll) 

oi  n 

12 

( o  (  3 ) )  =  c  su-oar ( 1 2 ) 

o  i  n 

1  1 

(o(4))  =  c  su-bar ( 1 3 ) 

o  i  n 

10 

(o(5) )  =  csu-bar ( 14) 

o  i  n 

9 

( o ( 6 ) )  =  csu-bar(15) 

d  i  n 

7 

(o(7))  =  csu-bar(lb) 

oi  n 

1 

=  a ( 1 5) 

o  i  n 

2 

=  a  ( 1  6 ) 

o  i  n 

3 

=  a  ( 1  7  ) 

oi  n 

4 

(el-oar)  =  a(0) 

oi  n 

5 

(e2-oar )  =  a  ( 1  9 ) 

o  i  n 

b 

(e3)  =  a ( 1 8 ) 

o  i  n 

8 

=  gnd 

o  i  n 

16 

=  ♦  5  v 

address  decoder/address  for  nenory  select 
device:  intel  8205  l-of-8  binary  decoder, icll 
connect i ons : 


oi  n 

15 

(o(0))  = 

csu-bar ( 1 7 ) 

oi  n 

14 

(o(D)  = 

csu-oar( 18) 

o  i  n 

13 

(o(2))  = 

csu-bar ( 19) 

oi  n 

12 

(o(3))  = 

csu-bar(20) 

oi  n 

1  1 

(0(4))  = 

csu-bar (21 ) 

o  i  n 

10 

(o(5))  = 

csu-bar (22) 

oi  n 

9 

(o(6))  = 

csu-bar (23) 

oi  n 

7 

(o(7))  = 

csu-bar (24) 

o  i  n 

1 

=  a  ( 1 5 ) 

oi  n 

2 

=  a  ( 1  b ) 

oi  n 

3 

=  a  ( 1  7  ) 

oi  n 

4 

( e 1 -oar ) 

=  a  (  0  ) 

pi  n 

5 

(e2-oar ) 

=  a  ( 1  8 ) 

oi  n 

b 

(e3)  =  a ( 1 9 ) 

oi  n 

8 

=  gnd 

oi  n 

lb 

=  +5v 

address  decoder/address  for  ■nemory  select 
device:  intel  8205  l-of-8  binary  decoder, icl2 
connect  ions: 


oi  n 

15 

(o ( 0 ) )  = 

csu-oar ( 25) 

oin 

14 

( o  ( 1 ) )  = 

csu-oar(2b) 

oi  n 

13 

(o(?))  = 

csu-bar ( 27 ) 

oi  n 

12 

(o(3))  = 

csu-oar(28) 

oi  n 

1  l 

(o(4))  = 

c  su-bar ( 29 ) 

o  i  n 

10 

(o(5))  = 

csu-bar ( 30 ) 

oi  n 

9 

(o(6))  = 

csu-bar(31) 

oi  n 

7 

(o(7))  = 

csu-bar ( 32 ) 

o  i  n 

1 

=  a  ( 1 5 ) 

o  i  n 

2 

=  a  ( 1  b ) 

oin 

3 

=  a  ( 1  7 ) 

1  54 


oin  4  Cel-oar)  s  aCO) 
oin  5  (e2-oar)  =  a(18) 
oin  6  (e3)  =  .not.  a(19) 
oin  8  -  gnd 
oin  16  -  +  5v 

address  decoder/address  for  Tiemory  select 
device:  iotel  8205  l-of-8  binary  decoder, icl3 
connect  ions: 


oi  n 

15 

(o(0))  =  csl 

-bar(l ) 

oi  n 

14 

(o(1) )  =  csl 

-Dar ( 2) 

oi  n 

13 

( o ( 2 ) )  =  csl 

-bar  ( 3 ) 

oi  n 

12 

(o(3))  =  csl 

-oar  ( 4 ) 

oin 

1  l 

( 0 ( 4 ) )  s  csl 

-ba  r ( 5 ) 

o  i  n 

10 

(o(5) )  =  csl 

•sar(6) 

oi  n 

4 

( o ( 6 ) )  =  c  si¬ 

bar ( 7 ) 

oi  n 

7 

lo  (  7 ) )  =  c  s  1  — 

bar ( 8 ) 

oi  n 

1 

=  a  ( 1 5 ) 

o  i  n 

2 

=  a  ( 16) 

oi  n 

3 

=  a  ( 1  7  ) 

o  i  n 

4 

(el-oar)  =  bbe-bar 

oi  n 

5 

(e2-oar )  =  a ( 1 8) 

oin 

6 

(e3)  -  .not . 

a(  19) 

oi  n 

8 

=  gnd 

oi  n 

16 

=  ♦  5v 

address  decoder/address  for  tietiory  select 
device:  intsl  8205  l-of-8  binary  decoder, icl4 
connect  ions: 


oi  n 

15 

(  o  (  0  ) ) 

*  cs1-oar(9) 

oi  n 

14 

(  o  ( 1 )  ) 

=  csl -bar ( 1 0 ) 

oi  n 

13 

(o(2)  ) 

=  csl -bar( 1 1 ) 

o  i  n 

12 

(o(3)  ) 

=  csl -bar (12) 

o  i  n 

1  1 

(o(4)  ) 

=  csl -bar ( 1 3 ) 

oi  n 

10 

(0(5)  ) 

=  csl-bar(14) 

oi  n 

9 

(  O  (  6  )  )  = 

c  s 1 -bar ( 1 5 ) 

o  i  n 

7 

(o(7))  = 

csl-bar(lb) 

O  i  n 

1 

=  a  (  1 5 ) 

oi  n 

2 

=  a  ( 1  6  ) 

o  i  n 

3 

=  a  ( 1  7  ) 

o  i  n 

4 

( e 1 -oar ) 

=  bhe-bar 

oi  n 

5 

(e2-oar ) 

=  a  ( 1  9 ) 

oi  n 

6 

(e3)  =  a ( 1  8 ) 

oi  n 

8 

=  gnd 

oi  n 

16 

=  +5v 

address  decoder /address  for  nenory  select 
device:  iotel  8205  l-of-8  binary  decoder, i c 1 5 
connect  ions: 

oin  15  (o(0))  =  csl-bar(17) 

oin  14  (o(l))  =  csl-oar(18) 

oin  13  (o(2))  =  csl-bar(l9) 

oin  12  (o(3))  =  csl-oar(20) 

oin  11  ( o ( 4 ) )  =  cs1-oar(21) 


Din  10  (o(5))  =  cs!-oar(22) 

oin  9  (o(6))  =  csl-bar(23) 

oin  7  ( o ( 7  ) )  =  csl-bar(24) 

oin  1  =  a( 15) 

oin  2  =  a ( 1 6 ) 

oin  i  =  a  ( 1  7  ) 

oin  4  (el-oar)  -  bhe-bar 

sin  5  (e2-oar)  =  a( 1 B) 

oin  6  (e  3 )  =  a(19) 

oin  B  =  gnd 

oin  16  =  +5v 

address  decoder/address  for  memory  select 
device:  intel  8205  l-of-8  binary  decoder, icl6 
connect  ions: 

oin  15  (o(0))  =  csl-bar(25) 
oin  14  (o( 1 ) )  =  cs1-oar(26) 
oin  13  (o(2))  =  csl-Dar(27) 

Din  12  (o(3))  =  csl-Dar(28) 

oin  11  ( o ( 4 ) )  =  csl-bar(29) 

oin  10  ( o ( 5) )  =  c s 1 -oar (30) 

oin  9  ( o ( 6 ) )  =  csl-bar(31) 

oin  7  (o(7))  =  cs1-bar(32) 

oin  1  =  a( 15) 

oin  2  =  a( 16) 

oin  3  =  a( 1 7) 

oin  4  (el-oar)  =  bhe-bar 

oin  5  (e2-oar)  s  a(16) 

oin  6  (e3)  =  .not.  a(l9) 

oin  8  =  qnd 

oin  16  =  +  5v 

condition  -node  inout  interface  hardware  to  sense 
sianal  KEYFLG 

device:inte1  8212  8  bit  i /o  oort»ic  17 
connect i ons : 

oins  3,5,7,9,16, 10, 20, 22(di (1:8))  =  KEYFLG (1:8) 
remainder  to 

around 

oins  4,6,8, 10, 15, 1 7, 19,21 (do(  1  :8)  )  =  db(l:0) 
oin  2  (md)  =  and 
oin  11  (sto)  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  0) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  24  s  t5v 
oin  12  =  qnd 

condition  mode  inout  interface  hardware  to  sense 
siqnal  KEYFLG 

device:intel  8212  0  oit  i /o  oort»ic  18 
connect  ions: 

oins  3,5, 7,9,  16, 18,20,22(di (9:  16) )  =  KEYFLG(9: 16) 
remainder  to 


qround 

pins  4,6,8, 10, 15, 17, 19, 21 (do(9: 16) )  =  db(9:lb) 
pin  2  (md)  =  gnd 
pin  11  ( st  o )  =  gnd 

pin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  0) 
pin  15  (ds2)  =  i np  .and.  doin 
pin  29  =  *5v 
pin  12  *  gnd 

16  bit  output  port  composed  of  two  8  bit  Ports 
xl  is  for  low  order  Dyte 
x 9  is  for  high  order  byte 
condition-mode  output  interface  hardware  to  issue 
signal :  x 1 

device!  intel  8212  8-bit  Wo  port,  ic  19 
connect i ons ! 

pins  5,5,7,9,16,  18,20,22  (di(l:8))  =  db ( 1  :  8 ) 
pins  4,6,8,10,15,17,19,21  ( do ( 1  !  8 ) )  =  x  1  (  1  :  8 )  ;i 

8  are  reg 

Din  2  (md)  -  +5v 

Din  11  (stb)  =  gnd 

Din  1  (dsl-bar)  =  wr-bar 

oin  15  (ds2)  =  out  .and.  (decode  a(0:7)  value  0) 
oin  24  ( v C C )  =  *5v 
oin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  x9 

device:  intel  8212  8-bit  i/o  port,  ic  20 
connec  t i ons ! 

pins  5,5,7,9,16,  18,20,22  ( cJ «  (1:8))  =  db(l:8) 

Dins  4,6,3,10,15,17,19,21  (do(l:8))  =  x9(l;8)  Ji 

8  are  reg 

Din  2  (md)  =  »5v 

oin  11  (stb)  s  gnd 

oin  1  (dsl-bar)  -  wr-bar 

oin  15  (ds2)  s  out  .and.  (decode  a ( 0 : 7 )  value  1) 

oin  24  (vcc)  =  t5v 

Din  12  (gnd)  =  q nd 

condition  mode  input  interface  hardware  to  sense 
signal  KEYCH* 

devicesintel  8212  8  bit  i/o  oort,ic  21 
connect i ons : 

pins  3,5*7,9,16, 18, 20, 22(di (1:8))  =  KEYCHA(1:8) 

remainder  to 

ground 

oins  4,6,8,10,15,17,19,21(do(1:8))  =  db(l:8) 
pin  2  (md)  -  gnd 
pin  11  (sto)  =  qnd 

pin  l  (dsl-bar)  s  .not.  (decode  a(0:7)  value  1) 
oin  13  (ds2)  =  inp  .and.  doin 


Din  2a  =  t5v 
Din  12  =  qnd 

condition  node  inout  interface  hardware  to  sense 
signal  KEYCHA 

device:inte1  8212  8  bit  i/o  oort»ic  22 
connect  ions: 

oins  3,5,7,9, 16, 18,20,22(di (9: 16) )  =  KEYCHA(9:16) 
remainder  to 

ground 

oins  a, 6, 8, 10, 15, 17, 19, 21 (do(9: 16) )  =  db(9;lb) 
oin  2  Cmd)  s  qnd 
oin  11  ( s  t  3 )  =  and 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  1) 
oin  13  (ds2)  -  ino  .and.  doin 
oin  2a  s  >5v 
Din  12  =  qnd 

condition  node  inDut  interface  hardware  to  sense 
signal  KEYCHA 

devicejintel  8212  8  bit  i/o  oort,ic  23 
connect i ons : 

Dins  3,5,7,9, 16,  18,20,22(di ( 1 :8)  )  =  KEYCHA(1:8) 
remainder  to 

ground 

oins  a,6,8,10,15,17,19,21(do(l:8))  =  db(l:8) 
pin  2  (md)  s  qnd 
oin  11  (sto)  *  and 

pin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  2) 
oin  13  (ds2)  =  inp  .and.  doin 

oin  2a  =  +  5v 

pin  12  =  gnd 

condition  node  inout  interface  hardware  to  sense 
signal  KEYCHA 

devicejintel  8212  8  bit  i/o  oort,ic  2a 
connect  ions: 

oins  3,5,7,9,16,18,20,22(di (9:16))  =  KEYCHA(9:i6) 
remainder  to 

around 

Dins  a, 6, 8, 10, 15, 17, 19, 21(80(^:16))  =  db(9:l6) 
oin  2  (md)  =  gnd 

Din  11  (sto)  =  gnd 

oin  1  (dsl-bar)  -  .not.  (decode  a ( 8 :  15)  value  2) 
oin  13  (ds2)  =  ino  .and.  doin 

Din  2a  -  +5v 

oin  12  =  gnd 

16  bit  outout  oort  comDosed  of  two  8  bit  oorts 
*17  is  for  low  order  byte 
*25  is  for  hiqh  order  byte 
condition-mode  outout  interface  hardware  to 


signal:  x  1  7 

device:  intel  8212  8-bit  i/o  port*  ic  25 
connec  t i ons : 

oins  3,5,7,9,16,18,20,22  (di(l;R))  =  db(l:R) 
pins  9,6,9,  10, 15» 1 7, 19,21  (do(l:8))  =  *17(1:8)  ;if 

8  are  req 

pin  2  ( md )  a  *5v 

Din  11  (stb)  =  gnd 

pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  a  out  .and.  (decode  a(0:7)  value  2) 

pin  29  ( vcc )  =  +5v 

pin  12  (gnd)  a  qnd 

condition-mode  output  interface  hardware  to  issue 
si gnal  :  *25 

device:  intel  8212  8-bit  i/o  oort,  ic  26 
connec  t i ons : 

Dins  3,5, 7,9, 16, 18,20,22  (di(l:8))  a  ab(l:8) 
pins  9,6,9,10,15,17,19,21  (do(l:8))  a  *25(1:8)  ?if 

8  are  req 

pin  2  (md)  a  +  5  v 

pin  11  (stb)  =  gnd 

pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  3) 

pin  29  (vcc)  a  ♦  5  v 

Din  12  (gnd)  =  gnd 

condition  mode  input  interface  hardware  to  sense 
Siqnal  <EYCHA 

device;intel  8212  8  bit  i/o  oort,ic  27 
connect  ions: 

oins  3,5, 7,9, 16, 18,20, 22(di (1:8))  a  KEYCHA(l:8) 
remainder  to 

ground 

oins  9,6,8,10,l5,17,19,21(do(l:8))  a  db ( 1 : 8) 

Pin  2  (md)  -  qnd 
Pin  11  (sto)  a  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  3) 
pin  13  (ds2)  =  inp  .and.  dbin 
Din  29  a  +  5v 
oin  12  a  qnd 

condition  mode  input  interface  hardware  to  sense 
signal  KEYCHA 

device:intel  821?  8  bit  i/o  oort,ic  28 
connect i ons : 

oins  3,5,7,9, 16, 18,20,22(di (9: 16) )  a  KEYCHA(9:16) 
remainder  to 


ground 


Dins  9,6,8, 10, 15, 1 7, 19, 21 (do(9: 16) )  a  db(9;lb) 
oin  2  (md)  =  qnd 
pin  11  (sto)  a  gnd 
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oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  3) 
oin  13  (ds2)  =  inp  .and.  doin 
oin  24  =  *5v 
oin  12  s  gnd 

condition  -node  incut  interface  hardware  to  sense 
s i qna 1  KE  YCHA 

devicetintel  8212  8  bit  i/o  oort,ic  29 
c  onnec  t ions: 

oins  3,5, 7,9, 16, 18,20, 22(di ( 1 :8) )  =  KEYCHA(1:8) 
remainder  to 

ground 

oins  a, 6, 8, 10, 15, 1 7, 19, 21 (dot  1 :8) )  =  do(l:8) 
oin  2  (md)  =  gnd 
oin  11  (sto)  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  4) 
oin  13  (ds2)  =  inp  .and.  doin 

oin  24  s  -toy 

oin  12  =  gnd 

condition  -node  inout  interface  hardware  to  sense 
signal  KEYCHA 

devicesintel  8212  8  bit  i/o  oort,ic  30 
connect i ons : 

oins  3,5, 7, 9, 16, 18,20,22(di (9: 16) )  2  KEYCHA(9:16) 
remainder  to 

ground 

oins  4, 6*8, 10, 15, 17, 19, 21( do (9:16))  2  db(9:l6) 
oin  2  (md)  2  qnd 

oin  11  (sto)  ~  gnd 

oin  1  (dsl-bar)  2  .not.  (decode  a(8:15)  value  9) 
oin  13  (ds2)  2  i no  .and.  doin 

oin  24  s  +5v 

oin  12  =  gnd 

16  oit  output  port  composed  of  two  8  bit  ports 
x33  is  for  low  order  byte 
x 4 1  is  for  high  order  byte 
condition-mode  output  interface  hardware  to  issue 
s i gna 1  :  x  33 

device:  intel  8212  8-bit  i/o  oort,  ic  31 
connec  t i ons : 

Pins  3, 5, 7, 9, 16, 19,20,22  (di(l:8))  2  db(l:8) 
pins  4,6,3,10,15,17,19,21  (do(l:8))  2  *33(1:8)  ;if 

8  are  rea 

pin  2  (md)  -  *5v 

pin  11  (stb)  2  qnd 

oin  1  (dsl-bar)  -  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  4) 
oin  24  (vcc)  -  +5v 
oin  12  (gnd)  2  qnd 

condition-mode  outout  interface  hardware  to  issue 
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signal :  *41 

devices  intel  8212  8-bit  i/o  oort,  ic  32 
connect i ons : 

oins  3,5,7,9,10,18,20,2?  (di(l:8))  =  db(l:8) 
oins  a, 6, 9, 10, 15, 17, 19,21  (do(l:8))  =  *91(1:8)  ;if 

8  are  req 

pin  2  ( md )  =  *5  v 

oin  11  (stb)  =  qnd 

pin  1  (dsl-bar)  =  wn-oar 

oin  13  Cds2)  =  out  .and.  (decode  a(0:7)  value  5) 

pin  24  ( vcc )  =  *5v 

oin  12  (qnd)  =  qnd 

16  bit  outojt  port  conoosed  of  two  8  bit  ports 
*49  is  for  low  order  oyte 
*57  is  for  high  order  byte 
condition -mode  output  interface  hardware  to  issje 
signal :  *49 

device:  intel  8212  8-bit  i/o  oort,  ic  33 
connect  ions: 

oins  3,5,7,9,16,19,20,22  (di(l:8))  =  db(l:8) 
oins  4,6,9,10,15,17,19,21  (do(l:B))  =  *49(1:8)  ;if 

8  are  req 

pin  2  (md)  =  +5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  ~  wr-bar 

oin  13  (ds?)  s  out  .and.  (decode  a(0:7)  value  6) 
oin  24  (vcc)  -  +5v 
oin  12  (gnd)  =  gni 

condition-mode  outout  interface  hardware  to  issue 
s i goal :  *57 

device:  intel  8212  8-bit  i/o  oort,  ic  34 
connec  t i ons : 

oins  3,5,  7,9,  16,  18,20,22  Cdi  C  1 :«) )  =  db  ( 1  : 8 
oins  4,6,9,10,15,17,19,21  (do(l:8))  =  *57(1:8)  ;if 

8  are  req 

pin  2  (md)  =  ♦  5  v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  ~  out  .and.  (decode  a(U:7)  value  7) 
Din  24  (vcc)  -  *5v 
pin  12  (qnd)  =  gnd 

16  bit  outojt  Dort  conoosed  of  two  8  oit  oorts 
*65  is  for  low  order  byte 
*73  is  for  high  order  byte 
condi t i on-mode  outout  interface  hardware  to  issue 
signal :  *65 

device:  intel  8212  8-bit  i/o  oort,  ic  35 
connec  t i ons : 

oins  3,5,7,9,16,19,20,22  (di(l:8))  =  ob(l:8) 
oins  4,6,8,10,15,17,19,21  (do(l:8))  =  *65(1:8)  ;if 

8  are  reo 
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oin  2  (md)  =  +  5v 

oi n  It  ( stb )  =  gnd 

pin  1  (dsl-bar)  -  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(Q:7)  value  3) 

oin  24  ( vcc )  =  *5v 

oin  12  (gnd)  ~  gnd 

condition-mode  outout  interface  hardware  to  issue 
signal:  *  73 

device:  intel  8212  8-bit  i/o  oort,  ic  36 
connect i ons : 

oins  3,5,7,9,16,18,20,22  (di (1:8))  =  db(l:8) 
oins  4,6,8,10,15,17,19,21  (do(l:8))  =  x73(l:8)  ;i 

8  are  rea 

oin  2  (md)  -  t5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  9) 

oin  24  (vcc)  =  +  5v 

oin  12  (gnd)  =  gnd 

16  bit  outout  oort  composed  of  two  8  bit  oorts 
x81  is  for  1 ow  order  oyte 
x 89  is  for  high  order  byte 
condition-mode  outout  interface  hardware  to  issue 
si gnal  :  x81 

device:  intel  8212  8-bit  i/o  oort,  ic  37 
connecti ons: 

oins  3,5,7,9,16,18,20,22  (di(l:8))  *  db(l:8) 

Dins  4,6,8,10,15,17,19,21  (do(l:8))  s  x81(l:8)  ,'i 

8  are  req 

oin  2  (md)  =  +  5v 

pin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  10) 
Din  24  ( vcc )  =  +  5v 
Din  12  (gnd)  =  gnd 

condition-mode  outDut  interface  hardware  to  issue 
signal :  x89 

device:  intel  8212  8-bit  i/o  oort,  ic  38 
connec  t i ons : 

Dins  3,5,7,9,16,18,20,22  ( d i (1:8))  r  db(l:8) 
pins  4,6,3,10,15,17,19,21  (do(l:3))  =  x89(l;8)  ;i 

3  are  req 

Din  2  (md)  s  t5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  11) 
oin  24  (vcc)  =  t5v 
oin  12  (and)  =  gnd 

16  bit  outout  Dort  composed  of  two  8  bit  oorts 
x97  is  for  low  order  byte 
xl05  is  for  high  order  oyte 


condition-mode  outout  interface  Hardware  to  issue 
si gnal :  *97 

device:  intel  6212  6-hit  i/o  oortr  ic  39 
connect  ions: 

oins  3,5,7,9,16,16,20,22  (di(l:6))  =  db(l:8) 
oins  9,6,9,  10,  15, 17,  19,21  (do(l:8))  =  *97(1:6)  ,*i 

8  are  rsa 

oin  2  (md)  =  t5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-har)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  12) 
oin  29  (vcc)  =  +  5  v 
oin  12  (god)  =  qnd 

condition-mode  outout  interface  Hardware  to  issue 
s i gnal :  *  1 05 

device:  intel  8212  8-oi t  i/o  oort,  ic  90 
connect i ons : 

oins  3,5, 7,9, 16, 18,20, 22  (di(l:8))  =  db(l:9) 
oins  9,6,9,10,15,17,19,21  (do(l:8))  =  *105(1:8) 

» if  8  are  req 

oin  2  (md)  =  t5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  13) 
pin  29  (vcc )  =  tSv 
pin  12  (gnd)  =  qnd 

16  bit  outout  oort  composed  of  two  8  bit  ports 
*113  is  for  low  order  byte 
*121  is  for  High  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal:  *  1 1 3 

device:  intel  8212  8-bit  i/o  oort,  ic  91 
connect i ons : 

oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
oins  9,6,9,10,15,17,15,21  (do(l:8))  =  *113(1:8) 

J i f  8  are  req 

oin  2  (md)  =  *5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  =  wr-bar 

Din  13  (ds2)  s  out  .and.  (decode  a(0:7)  value  19) 
oin  29  (vcc)  =  t5v 
oin  12  (gnd)  =  qnd 

condition-mode  outout  interface  Hardware  to  issue 
s i gnal :  *  1 21 

device:  intel  8212  8-bit  i/o  oort,  ic  92 
connec  t i ons : 

oins  3,5,7,9,16,19,20,22  (di(l:8))  =  db(l:9) 
oins  9,6,9,10,15,17,19,21  (do (1:8))  =  *121(1:8) 

; i f  8  are  reo 

oin  2  (md)  ~  t5v 
oin  11  (stb)  =  gnd 


pin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  15) 
oin  24  (vcc)  =  +  5v 
pin  12  (gnd)  s  qnd 

16  bit  outout  oort  comoosed  of  two  8  bit  oorts 
*129  is  for  low  order  bvte 
*137  is  for  high  order  byte 
c ond i t i on-mode  outout  interface  hardware  to  issue 
signal:  *  1 29 

device:  intel  8212  8-bit  i/o  oort»  ic  43 
connec  t i ons : 

oins  3, 5, 7,9, 16, 18,20,22  (di (1:8))  =  dh(l:8) 

Dins  4,6,9,10,15,17,19,21  (do(l:8))  =  *129(1:8) 

; i f  8  are  req 

oin  2  (md)  =  *5v 

Din  11  (stb)  =  qnd 

Din  1  (dsl-bar)  s  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  lb) 

oin  24  (vcc)  =  t5v 

oin  12  (qnd)  =  qnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  *  1 37 

device:  intel  8212  8-bit  i/o  oort,  ic  44 
connec  t i ons : 

oins  3,5,7,9,16,19,20,22  (di(l:8))  =  db(l:8) 

Dins  4,6,9,10,15,17,19,21  (do(l:8))  =  *137(1:8) 

; i f  8  are  req 

pin  2  (md)  =  +5v 

oin  11  (stb)  -  gnd 

Din  1  (dsl-bar)  s  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  17) 

oin  24  (vcc)  =  +5v 

oin  12  (qnd)  =  qnd 

16  bit  outout  oort  composed  of  two  8  bit  oorts 
*145  is  for  low  order  byte 
*153  is  for  hiah  order  ovte 
condi t i on-mode  outout  interface  hardware  to  issue 
s i gna 1 :  *  1 45 

device:  intel  8212  8-bit  i/o  oort,  ic  45 
connec  t i ons : 

oins  3,5,7,9,16,19,20,22  (di(l:8))  s  db(l:8) 

Dins  4,6,9,10,15,17,19,21  ( do ( 1 : 6 ) )  =  *145(1:8) 

; i f  8  are  reg 

oin  2  (md)  =  +  5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  ~  wr-oar 

pin  13  (ds2)  -  out  .and,  (decode  a(0:7)  value  18) 
oin  24  (vcc)  =  *5v 
Din  12  (qnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
s i gna 1 :  *  1 53 


device:  intel  821 2  8-bit  i/o  oort,  ic  46 
connec  t i ons  : 

oins  3f 5# 7,9, 16, 19,20,22  (di(l:fl))  =  db(l;8) 

Dins  4,6,9, 10, 15, 17, 19,21  (do(l:8)>  =  *153(1:8) 

» i  f  8  are  req 

Din  2  (ml)  =  tSv 

oin  11  (stb)  =  and 

oin  1  (dsl-bar)  -  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  19) 
oin  24  ( vcc )  =  +  5v 
Din  12  (god)  =  and 

16  bit  outojt  port  composed  of  two  8  bit  Dorts 
*161  is  for  low  order  byte 
*169  is  for  high  order  oyte 
condi t i on-mode  output  interface  hardware  to  issje 
s i ana  1 :  *  1 61 

device:  intel  8212  8-bit  i/o  oort,  ic  47 
connec  t i ons  : 

pins  3, 5, 7, 9, 16, 18,20,22  (di(l:6))  s  db(l:8) 

Dins  4,6,8,10,15,17,19,21  (do(l:8))  =  *161(1:8) 

; i f  8  are  req 

pin  2  (tid)  =  +  5v 

oin  11  (stb)  =  and 

oin  1  (dsl-bar)  -  wr-bar 

oin  13  (ds2)  =  cut  .and.  (decode  a(0:7)  value  20) 
oin  24  (vcc)  =  +  5v 
oin  12  (god)  =  g ni 

condition-mode  output  interface  hardware  to  issue 
s i gnal  :  *  1 69 

device:  intel  8212  8-bit  i/o  oort,  ic  48 
connect  ions: 

oins  3,5,7,9,16,18,20,22  (di (1:8))  =  db(l:8) 
oins  4,6,9,10,15,17,19,21  (do(l:8))  =  *169(1:9) 

? i f  8  are  req 

Din  2  (md)  =  *5v 

pin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  21) 
oin  24  (vcc)  =  +5v 
Din  12  (gnd)  =  gnd 

16  bit  outout  port  composed  of  two  8  bit  ports 
*177  is  for  low  order  byte 
*185  is  for  high  order  ovte 
condition-mode  outout  interface  hardware  to  issue 
s i gnal  :  *  1 77 

device:  intel  8212  8-bit  i/o  oort,  ic  49 
connec  t i ons : 

oins  3,5,7,9,16,18,20,22  (di(1:8))  =  db(l:8) 
oins  4,6,8,10,15,17,19,21  ( do ( l : « ) )  =  *177(1:9) 

;  i  f  8  are  req 

oin  2  (md)  =  +5v 


Din  11  (stb)  =  qnd 

Din  1  (dsl-bar)  =  wr-Dar 

Din  13  (ds2)  ~  out  .and.  (decode  a(0:7)  value  22) 
Din  24  (v:c )  =  +  5v 
oin  12  (god)  =  qnd 

condition-made  output  interface  hardware  to  issue 
signal:  *  1 85 

device:  intel  8212  8-bit  i/o  oort,  ic  50 
connec  t i ons  : 

Dins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 

Dins  4,6,8,10,15,17,19,21  (do(l:8))  =  *185(1:8) 
•if  8  are  req 

oin  2  (md)  =  +  5v 

Din  11  (stb)  =  gnd 

Din  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  23) 
oin  24  (vcc)  =  t5v 
oin  12  (gnd)  =  gnd 

condition  mode  inout  interface  hardware  to  sense 
siqnal  KEYCH4 

device:intel  8212  8  bit  i/o  oort,ic  51 
connect i ons : 

Dins  3, 5, 7, 9, 16, 18,20,22(di ( 1  :8)  )  =  KEYCHA(l:8) 
remainder  to 

ground 

Dins  4,6,8, 10, 15,17, 19, 21( do (1:8))  =  db(l:8) 
oin  2  (md)  s  qnd 
oin  It  (sto)  =  qnd 

oin  1  (dsl-bar)  -  .not.  (decode  a(0:7)  value  5) 
oin  13  (ds2)  s  (no  .and.  doin 

oin  24  s  +  5v 

oin  12  =  gnd 

condition  mode  inout  interface  hardware  to  sense 
siqnal  KEY CHA 

device:intel  8212  8  bit  i/o  oort,ic  52 
connec  t i ons : 

Dins  3,5,7,9,  16,  18,20,22(di (9:  16) )  =  KEYCHA(9:16) 
remainder  to 

qround 

oins  4,6,8,10,15,17,19,21(do(9:lb))  =  db(9;l6) 
oin  2  (md)  -  gnd 

oin  11  (sto)  s  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:l5)  value  5) 
oin  13  (ds2)  =  ino  .and.  doin 

oin  24  =  *5v 

oin  12  =  gnd 

16  Dit  outout  port  comoosed  of  two  8  bit  ports 
*193  is  for  low  order  byte 
*201  is  for  hiah  order  oyte 


condition-mode  outout  interface  hardware  to  issue 
s i qna 1 :  x 1 93 

device:  intel  9212  8-bit  i /o  Dort,  ic  S3 
connec  t i ons : 

Dins  3*5»7,9,16, 19f20»22  (di(l:R))  =  db(l:9) 
oins  4,6,9,10,15,17,19,21  (do(l:R))  =  *193(1:8) 

? i f  8  are  red 

Din  2  (md)  =  *5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  s  out  .and.  (decode  a(0:7)  value  24) 
oin  24  ( vcc )  -  tSv 
oin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  *201 

device:  intel  8212  8-bit  i/o  oort,  ic  54 
connec  t i ons : 

oins  3,5,7,9,16,19,20,22  ( d i (1:8))  =  db(l:8) 
oins  4,6,9,10,15,17,19,21  ( do ( 1 : 8  )  )  =  *201(1:8) 

J i f  8  are  reg 

oin  2  (md)  =  t5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  25) 
oin  24  ( vcc )  =  +  5v 
oin  12  (gnd)  =  gnd 

condition  mode  inout  interface  hardware  to  sense 
signal  <EYCHA 

device:intel  8212  8  bit  i/o  oort,ic  55 
connect i ons : 

oins  3,5,7,9,16, 18, 20, 22(di (1:8))  =  KEYCHA(1:8) 
remainder  to 

ground 

oins  4,6,8,10,15,17,19,21 (dot  1:8)  )  =  db(l:8) 
oin  2  (md)  -  gnd 

oin  11  (sto)  ~  gnd 

oin  1  (dsl-bar)  -  .not.  (decode  a(0:7)  value  6) 
oin  13  (ds2)  =  ino  .and.  doin 

oin  24  s  *5v 

oin  12  =  gnd 

condition  mode  inout  interface  hardware  to  sense 
signal  KEYCHA 

device: intel  9212  8  bit  i/o  oort»ic  5b 
connect i ons : 

oins  3,5,7,9, lb, 18,20,22(di (9: 16) )  =  KEYCH4(9:lb) 

remainder  to 

ground 

oins  4,6,8, 10, 15, 17, 19,21 (do(9: lb) )  =  db(9;lb) 
oin  2  (md)  =  gnd 


oin  11  ( st  o )  =  grid 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  b) 
oin  13  (ds2)  =  i  no  .and.  doin 
oin  24  -  t5v 
oin  12  =  god 

16  bit  outout  Dort  composed  of  two  8  Dit  ports 
*209  is  for  low  order  byte 
*217  is  for  high  order  oyte 
condition -mode  outout  interface  hardware  to  issue 
s i gna 1 :  *  209 

device:  intel  8212  8-bit  i /o  oort  »  ic  57 
connect  ions: 

oins  3,5,7,9,16,19,20,22  (di(l:B))  =  db(l:9) 
oins  4,6,9,10,15,17,19,21  (do(l:8))  =  *209(1:9) 

*  i  f  8  are  req 

oin  2  (md)  =  *5v 

oin  11  (stb)  =  gnd 

pin  1  (dsl-bar)  ~  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  2b) 

oin  24  (vcc)  =  fSv 

oin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  *217 

device:  intel  8212  8-bit  i/o  oort,  ic  58 
connect i ons: 

oins  3,5, 7,9, 16, 18,20,22  (di(l:8))  =  db(l:8) 

Dins  4,6,9,10, 15, 17, 19,21  (do(l:8))  s  *217(1:8) 

*  i  f  8  are  req 

oin  2  (md)  ~  *5v 

oin  11  (sto)  =  ond 

Din  1  (dsl-bar)  s  wr-oar 

oin  13  (ds2)  ~  out  .and.  (decode  a(0:7)  value  27) 

oin  24  (vcc )  -  tSv 

pin  12  (gnd)  =  gnd 

16  oit  outout  oort  comDosed  of  two  8  bit  Dorts 
*225  is  for  low  order  bvte 
*233  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal  :  *225 

device:  intel  8212  8-bit  i/o  oort,  ic  59 
connect  ions: 

oins  3,5, 7,9,  16,  18,20,22  ( ci i  (1:81)  =  db(l:9) 
pins  4,6,9,10,15,17,19,21  (do(l:8))  =  *225(1:9) 

; i f  8  are  req 

Din  2  (md)  =  +5v 

oin  11  (stb)  =  gnd 

Din  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  26) 

oin  24  (vcc)  -  +5v 

oin  12  (gnd)  ~  gnd 

condition-mode  outout  interface  hardware  to  issue 


signal :  *233 

device!  intel  8212  8-bit  i/o  oort »  ic  60 
connect  ions: 

Dins  3,5, 7, 9, 16, 18,20,22  (di(l:Q))  =  db(l:8) 

Dins  a, 6, 8, 10, 15, 17, 19,21  (do(l:8))  =  *233(1:8) 

;  i  f  8  are  req 

oin  2  (rod)  -  +  5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  29) 
oin  29  (vcc)  -  *5  v 
oin  12  (gnd)  s  gnd 

16  bit  outout  oort  corooosed  of  two  8  bit  ports 
*291  is  for  low  order  byte 
*299  is  for  high  order  oyte 
condition-inode  outout  interface  hardware  to  issue 
si gnal :  *291 

device:  intel  8212  8-bit  i/o  Dort,  ic  t>l 
connec  t i ons : 

Dins  3,5,7,9,16,18,20,22  (di(t:8))  =  db(l:8) 

Dins  9,6,0,10,15,17,19,21  (do(l:8))  =  *291(1:8) 
r  i  f  8  are  req 

oin  2  (rod)  -  *5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  30) 

oin  29  (vcc)  s  +5v 

oin  12  (and)  -  qnd 

condition-mode  outout  interface  hardware  to  issue 
signal  :  *299 

device:  intel  8212  8-bit  i/o  oort,  ic  62 
connect  ions: 

oins  3,5, 7,9, 16, 19,20,22  (di (1:6))  =  db(l:R) 
oins  9,6,3,10,15,17,19,21  (do(l:8))  =  *299(1:8) 

!  if  8  are  req 

oin  2  (md)  =  *5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  31) 

oin  29  (vcc)  -  t5v 

oin  12  (gnd)  -  gnd 

16  bit  outout  Dort  conoosed  of  two  8  bit  oorts 
*257  is  for  low  order  byte 
*265  is  for  hiah  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
siqnal  :  *257 

device:  intel  8212  8-bit  i/o  oort,  ic  63 
connec  t i ons : 

Dins  3, 5, 7,9, 16, 19,20,22  ( di (1:8))  =  db(l:9) 
oins  9,6,9,10,15,17,19,21  (do(l:8))  =  *257(1:6) 

* i f  8  are  req 


Din  2  (md)  =  +  5v 

oin  11  (stb)  =  gnd 

Din  1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  12) 
oin  24  (vcc)  =  *5v 
Din  12  ( qod )  s  gnd 

condi t i on-mode  outout  interface  hardware  to  issue 
signal :  * 2b5 

device:  intel  8212  8-oit  i/o  oort,  ic  64 
connec  t i ons : 

oins  3,5,7,9,16,18,20,22  (di(i:8))  =  db(l:8) 
oins  4,6,3,10,15,17,19,21  (do(l:8)>  =  *265(1:8) 

;  i  f  8  are  rea 

Din  2  (md)  =  +  5v 

oin  11  (stb)  s  gnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  s  out  .and.  (decode  a ( 0 : 7 )  value  33) 
oin  24  (vcc)  =  +  5v 
oin  12  (gnd)  =  gnd 

16  bit  outout  oort  composed  of  two  8  bit  oorts 
*273  is  for  low  order  byte 
*281  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal :  *273 

device:  intel  8212  8-bit  i/o  Dort*  ic  65 
connec  t i ons : 

oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 

Dins  4,6,9,10,15,17,19,21  ( do ( 1 : 8 ) )  =  *273(1:8) 
»if  8  are  req 

oin  2  (md)  =  f5v 

oin  11  (stb)  s  gnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  34) 
oin  24  ( vcc )  *  *5v 
oin  12  (gnd)  =  gnd 

condi t i on-motfe  outout  interface  hardware  to  issue 
signal :  *281 

device:  intel  8212  8-bit  i/o  ogrt,  ic  66 
connec  t i ons : 

Dins  3, 5, 7, 9, 16, 15,20,22  ( d l (1:8))  =  db(l:8) 

Dins  4,6,8,10,15,17,19,21  (do(l:8))  =  *281(1:8) 

>  i  f  8  are  req 

Din  2  (md)  =  *5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  s  out  .and.  (decode  a(0:7)  value  35) 
Din  24  (vcc)  =  +5v 
Din  12  (gnd)  =  gnd 

16  bit  outDjt  oort  comoosed  of  two  8  bit  oorts 
x289  is  for  low  order  byte 
*297  is  for  high  order  ovte 


s  i  gna  I 


Jif  8 


s  i  gna  I 


Jif  8 


signal 


Jif  8 


si gnal 


J  i  f  8 


condition-made  outout  interface  hardware  to  issue 
:  *2  89 

device!  intel  821 2  8-bit  i/o  port ,  ic  67 
connect i ons! 

oins  5,5, 7,9, 16, 18,20, 22  (di(l:8))  =  db(l:8) 

Dins  <4,6,8,10,15,17,19,21  C do (1  :8))  =  *289(1  :8) 
are  req 

pin  2  (md)  =  t5v 

Din  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

oin  15  (ds2)  =  out  .and.  (decode  a(0:7)  value  5b) 
oin  29  (vcc)  =  f5v 
oin  12  (gnd)  =  gnd 

condition-mode  output  interface  hardware  to  issue 
!  *2 97 

device!  intel  8212  8-bit  i/o  oort,  ic  68 
connect i ons ! 

pins  5,5, 7,9, 16, 18,20,22  (di(l:8))  =  db(l:8) 

Dins  9,6,8,10,15,17,19,21  (do(l:8))  =  *297(1:8) 
are  req 

Din  2  (md)  -  +  5v 

oin  11  (stb)  s  gnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  -  out  .and.  (decode  a(0! 7)  value  57) 
oin  29  (vcc)  =  *5v 
pin  12  ( qnd )  =  gnd 

16  Dit  output  port  comoosed  of  two  8  bit  ports 
*505  is  for  low  order  byte 
*515  is  for  high  order  oyte 
condi t i on-mode  outout  interface  hardware  to  issue 
!  *505 

device:  intel  8212  3-bit  i/o  oort,  ic  69 
connect i ons ! 

Dins  5,5, 7,9, 16, 18,20,22  (di(l:8))  =  db(l:8) 

Dins  9,6,3,10,15,17,19,21  (do(l:8))  =  *505(1:8) 

are  req 

oin  2  (md)  =  +5v 

oin  11  (stb)  =  qnd 

pin  1  (dsl-bar)  =  wr-bar 

oin  15  (ds2)  =  out  .and.  (decode  a(0:7)  value  58) 
Din  29  (vcc )  =  t5v 
oin  12  (qnd)  =  gnd 

condition-mode  output  interface  hardware  to  issue 
:  *515 

device!  intel  8212  8-bit  i/o  Dort,  ic  70 
connections! 

Dins  5,5,7,9,  16,  1  3,20,22  C  rd  i  (1:3))  =  db(l:8) 

Dins  9,6,8,10,15,17,19,21  (do(l*.8))  =  *515(1:8) 
are  req 

oin  2  (md)  =  t5v 
Din  11  (stb)  ~  and 
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oin  1  (dsl-bar)  =  xf-oar 

oin  13  (ds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  39) 
pin  29  (vcc)  =  +  5v 
Din  12  (qod)  =  qnd 

16  bit  output  port  composed  of  two  8  oit  oorts 
*321  is  for  low  order  byte 
*329  is  for  hiah  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
s  i  qna 1 :  *  32 1 

device:  intel  8212  8-bit  i /o  oort,  ic  71 
connec  t i ons : 

pins  3, 5/7,9, 16, 13,20,22  (di(l:8))  =  db(l:8) 
pins  9,6,9,10,15,17,19,21  (do(l:8))  =  *321(1:8) 
;if  8  are  req 

pin  2  (  m  d )  =  +  5  v 

pin  11  (stb)  =  qnd 

pin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  90) 
oin  29  ( vcc )  =  +5v 
pin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
s i ana  1 :  *  329 

device:  intel  8212  8-bit  i/o  port,  ic  72 
connect i ons : 

Dins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
pins  9,6,9,10,15,17,19,21  (do(t:8))  =  *329(1:8) 
;if  8  are  req 

oin  2  (md)  =  +  5v 

pin  11  (stb)  ~  gnd 

pin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  91) 
pin  29  (vcc)  =  t5v 
pin  12  (gnd)  =  gnd 

16  bit  output  port  composed  of  two  8  bit  ports 
*337  is  for  low  order  byte 
*395  is  for  high  order  oyte 
condition-mode  output  interface  hardware  to  issue 
signal:  * 337 

device:  ’ntel  8212  8-bit  i/o  port,  ic  73 
connec  t i ons : 

oins  3,5, 7,9, 16, 19,20,22  (di(l:9))  =  db(l:8) 
pins  9,6,9,10,15,17,19,21  (do(l:8))  =  *337(1:8) 
;if  8  are  req 

Din  2  (md)  =  +5v 

oin  11  (stb)  -  qnd 

pin  1  (dsl-bar)  -  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  92) 
pin  29  (vcc)  =  t5v 
oin  12  (and)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
signal:  * 395 


device:  intel  6212  8-bit  i /o  oopt,  ic  74 
connec  t i ons : 

Dins  3,5, 7,9, 16, 19,20,22  (di(l:6))  =  db(l:8) 

Dins  4,6,3, 10, 15, 17, 19,21  (do(t:8))  =  *345(1:8) 

? i f  8  are  rea 

oin  2  (md)  s  +  5v 

oin  11  (stb)  ~  qnd 

oin  1  (dsl-bap)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a ( 0 :  7 )  value  43) 

oin  24  (vcc)  =  +  5v 

Din  12  (qnd)  s  qnd 

lo  bit  outDut  Dort  comoosed  of  two  8  bit  oopts 
*353  is  fop  low  oPdep  bvte 
*361  is  fop  high  opdep  ovte 
condition-mode  outout  intepface  Kapdwane  to  issue 
signal:  *353 

device:  intel  8212  8-bit  i/o  oopt,  ic  75 
Connect  ions: 

Dins  3,5,7,4,16,18,20,22  (di(t:8))  =  db(l:8) 

Dins  4,6,8,10,15,17,14,21  (do(l:8))  =  *353(1:8) 

J i f  8  ape  peg 

Din  2  (md)  -  *5v 

oin  11  (stb)  =  gnd 

Din  1  (dsl-bap)  =  wp-Dap 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  44) 
Din  24  (vcc)  =  +5v 
oin  12  (gnd)  =  gnd 

condition-mode  outout  intepface  hapdwape  to  issue 
signal:  *  36 1 

device:  intel  8212  8-bit  i/o  oopt,  ic  76 
connec  t i ons : 

Dins  3, 5, 7, 4, 16,  1  8,20,22  ( ri  i  (1:8))  =  db(l:8) 

Dins  4,6,9,  10, 15, 17,  |4,21  (do(l.*8))  =  *361(1:8) 
f i f  8  ape  peg 

oin  2  (md)  =  +5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bap)  =  wp-bap 

oin  13  (ds2)  -  out  .and.  (decode  a(0:7)  value  45) 
Din  24  (vcc)  =  +5v 
oin  12  (qnd)  =  qnd 

condition  mode  inDut  intepface  hapdwape  to  sense 
signal  KEVCHA 

device:intel  8212  8  bit  i/o  ooPt,ic  77 
connect  ions: 

Dins  3, 5, 7, 4, 16, 18, 20, 22(di(l:8))  =  KEVCHA(l:8) 
pemaindep  to 

gpound 

Dins  4,6,8, 10, 15, 1 7, 14,21 (do( 1 :8) )  =  db(l:8) 
oin  2  (md)  =  gnd 
oin  11  (sto)  -  gnd 
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pin  1  (dsl-bar)  -  .not.  (decode  a(0:7)  value  7) 
pin  13  (ds2)  =  ino  .and.  doin 

oin  24  -  t5v 

oin  12  =  gnd 

condition  mode  inout  interface  hardware  to  sense 
signal  KEYCHA 

devicetintel  8212  8  bit  i /o  oort.ic  78 
connect i ons : 

Dins  3, 5, 7, 9, 16, 18,20,22(di (9: 16) )  =  KEYCHA(9:lfe) 
remainder  to 

ground 

pins  4,6,8, 10, 15, 17, 19,21 (do(9:  16)  )  =  db(9;lb) 
oin  2  (md)  -  and 

oin  11  (sto)  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  7) 
oin  13  (ds2)  *  ino  .and.  doin 

oin  24  =  t5v 

oin  12  -  gnd 

16  Dit  outout  oort  comDosed  of  two  8  bit  oorts 
*369  is  for  low  order  byte 
*377  is  for  high  order  Oyte 
condition-mode  outout  interface  hardware  to  issue 
signal :  *369 

device:  intel  8212  8-bit  i /o  oort,  ic  79 
connect i ons: 

pins  3, 5, 7, 9, 16, 18,20,22  (d»(l:8))  s  db(l:8) 
oins  4,6,8,10,15,17,19,21  (do(l:8))  s  *369(1:8) 
*if  8  are  req 

oin  2  (md)  =  +  5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-bar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  96) 
oin  24  (vcc)  =  +5v 
oin  12  (gnd)  =  gnd 

condi t i on-mode  outout  interface  hardware  to  issue 
signal :  * 377 

device:  intel  8212  8-bit  i/o  oort,  ic  80 
connect  ions: 

pins  3.5, 7,9, 16, 18,20,2?  (di(l:8))  =  db(l:6) 
pins  4,6,8,10,15,17,19,21  (do(l:8))  =  *377(1:8) 

» i  f  8  are  req 

oin  2  (md)  =  +5v 

Din  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  (decode  a ( 0 ; 7 )  value  47) 
oin  24  (vcc)  =  *5v 
oin  12  (gnd)  =  and 

16  bit  outout  oort  composed  of  two  8  bit  Dorts 
*385  is  for  low  order  byte 
*393  is  for  high  order  oyte 


condition-mode  outout  interface  hardware  to  issue 
signal :  *385 

device:  intel  8212  8-bit  i/o  oort,  ic  81 
connect »  ons : 

oins  3, 5, 7,9, 16, 18,20,22  (di(l:8))  =  db(l:8) 

Dins  a, 6,8, 10# 15, 17,19,21  C do < 1 : B ) )  s  *385(  1  :8) 

*  i  f  8  are  req 

pin  2  (md)  =  t5v 

pin  11  (stb)  s  qnd 

pin  1  (dsl-bar)  *  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  48) 
pin  24  (vcc)  =  ♦5v 
pin  12  (gnd)  s  qnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  x393 

device:  intel  8212  8-bit  i/o  oort,  ic  82 
connect i ons : 

oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
pins  4,6,9.10,15,17,19,21  (do(l:8))  s  *393(1:8) 

J i f  8  are  rea 

pin  2  (md)  =  f5v 

pin  11  (stb)  ~  qnd 

pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  49) 
pin  24  (vcc)  =  +5v 
pin  12  (qnd)  s  gnd 

lb  bit  outout  oort  composed  of  two  8  bit  oorts 
*401  is  for  low  order  byte 
*409  is  for  high  order  oyte 
condition-mode  output  interface  hardware  to  issue 
siqnal :  *401 

device:  intel  8212  8-bit  i/o  oort,  ic  83 
connec  t i ons : 

pins  3, 5, 7,9, 16,19,20,22  (di (1:8))  =  db(l:8) 
oins  4,6,9,10,15,17,19,21  (do(l:8) )  =  *401(1:8) 
fit  8  are  req 

pin  2  (md)  =  >5v 

pin  11  (stb)  =  qnd 

pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  50) 
pin  24  (vcc)  s  +5v 
pin  12  (qnd)  =  qnd 

condition-mode  output  interface  hardware  to  issue 
siqnal  :  *409 

device:  intel  8212  8-bit  i/o  oort,  ic  84 
connec  t i ons : 

oins  3,5, 7,9, 16, 1 9,20,22  ( di C 1 : 8 ) )  =  db(l:9) 
oins  4,6,8,10,15,17,19,21  ( do ( 1 : 8 ) )  =  *409(1:8) 
Jif  8  are  req 

pin  2  (md)  =  t5v 
pin  11  (stb)  =  qnd 


pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  SI) 
pin  24  (vcc)  =  *5v 
pin  12  (and)  ~  and 

16  bit  outPJt  oort  composed  of  two  ft  Bit  ports 
*417  is  for  low  order  byte 
x 425  is  for  hi ab  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
s i ana! :  *417 

device:  inte!  8212  8-bit  i to  oort.  ic  85 
connec  t i ons : 

pins  3,5,7,9,16.18,20,22  (di(l:H))  =  db(l:8) 

Pins  4,6,8,10,15,17,19,21  (do(l:8))  =  *417(1:8) 
»if  8  are  rea 

pin  2  (md)  =  +5v 

pin  11  (stb)  -  and 

pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  52) 
pin  24  (vcc )  =  +  5v 
pin  12  (gnd)  =  gnd 

condi t i on-mode  outout  interface  hardware  to  issue 
signal :  *425 

device:  intel  8212  8-bit  i /o  port,  ic  86 
connect i ons : 

pins  3,5,7,9,16,18,20,22  (di(l:fl))  =  db(l:8) 
pins  4,6,8,10,15,17,19,21  (do(l:S))  =  *425(1:8) 
Jif  8  are  reg 

pin  2  (md)  -  *5 v 

pin  11  (stb)  s  gnd 

pin  1  (dsl-bar)  *  wr-bar 

pin  13  (ds2)  s  out  .and.  (decode  a(0:7)  value  53) 
oin  24  (vcc)  -  +5v 
pin  12  (gnd)  =  gnd 

16  bit  output  oort  composed  of  two  8  bit  ports 
*433  is  for  low  order  byte 
*441  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal :  *433 

device:  intel  8212  8-bit  i/o  oort,  ic  87 
connect i ons: 

oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:ft) 
pins  4,6,8,10,15,17,19,21  (do(l:8))  =  *433(1:8) 
;if  8  are  reg 

oin  2  (md)  =  *5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  54) 
oin  24  ( vcc )  =  t5v 
oin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 


signal:  *441 
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device:  intel  8212  A-bit  i/o  oort,  ic  88 
connec  t i ons : 

oins  3,5, 7, 9,16,18, 20, 22  (di(l:B))  s  db(t:8) 

Dins  4,6,3,10,15,17,19,21  Cdo(l:8))  =  *441(1:3) 

»if  8  are  req 

oin  2  (md)  -  t5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  -  *p*Bar 

oin  13  Cds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  55) 

oin  24  (vcc)  =  +  5v 

oin  12  (gnd)  -  gnd 

16  bit  outout  oort  composed  of  two  8  oit  oorts 
*449  is  for  low  order  byte 
*457  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal:  *449 

device:  intel  8212  8-bit  i /o  Dort,  ic  89 
connec  t i ons : 

oins  3,5, 7,9, 16, 18,20,22  Cdi (1:0))  =  db(l:8) 
oins  4,6,3,10,15,17,19,21  (do(J:8))  =  *449(1:8) 

* if  8  are  rea 

oin  2  (md)  s  +  5v 

Din  11  (stb)  =  gnd 

Din  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  5b) 
Din  24  (vcc )  =  +5v 
oin  12  (gnd)  ~  gnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  *457 

device:  intel  8212  8-bit  i/o  Dort,  ic  90 
connect i ons: 

pins  3,5,7,9,16,13,20,22  (di(l:8))  =  db(l:8) 

Dins  4,6,3,10,15,17,19,21  (do(l:8))  =  *457(1:8) 
?if  8  are  req 

oin  2  (md)  -  f5v 

oin  11  (stb )  =  qnd 

oin  1  (dsl-bar)  -  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  57) 
oin  24  (vcc)  =  *5v 
oin  12  (gnd)  s  gnd 

16  bit  outout  Dort  composed  bf  two  8  bit  oorts 
*465  is  for  low  order  byte 
*473  is  for  high  order  oyte 
condition-mode  output  interface  hardware  to  issue 
signal  :  *465 

device:  intel  8212  8-bit  i/o  oort,  ic  91 
Connect  ions: 

oins  3,5,7,9,16,18,20,22  (di (1:8))  =  db(l:8) 
oins  4,6,3,10,15,17,19,21  (do(l:8))  =  *465(1:3) 


*if  8  are  req 

oin  2  (md) 


♦  5v 
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pin  11  (stb)  ~  gnd 

pin  1  (dsl-bar)  =  mP*bap 

pin  13  (ds2)  =  out  .and.  (decode  a(0;7)  value  58) 
oin  24  (vcc)  =  +  5v 
oin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
s i gnal :  *473 

device:  intel  8212  8-bit  i/o  oort>  ic  92 
connect  ions: 

oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(t:8) 
pins  4,6,3,10,15,17,19,21  (do(l:8))  =  *473(1:8) 
Jif  8  are  req 

pin  2  (md)  s  +5v 

pin  11  (stb)  =  gnd 

pin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  54) 
pin  24  (vcc)  =  +5v 
pin  12  (gnd)  =  gnd 

16  bit  output  port  composed  of  two  8  bit  ports 
*481  is  for  low  order  byte 
*489  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal :  *481 

device:  intel  8212  8-bit  i/o  port,  ic  93 
connect  ions: 

oins  3, 5, 7, 9, 16, 18,20,22  (di (1:8))  =  db(l:8) 
oins  4,6,8,10,15,17,19,21  (do(l:8))  s  *481(1:8) 
Jif  8  are  req 

Din  2  (md)  s  ♦5v 

Din  11  (stb)  s  gnd 

pin  1  (dsl-bar)  =  wr-bar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  valje  60) 
oin  24  (vcc)  =  +5v 
pin  12  (gnd)  =  gnd 

condition-mode  output  interface  hardware  to  issue 
signal :  *489 

device:  intel  8212  8-bit  i/o  oort,  ic  94 
connect  ions: 

Dins  3,5, 7,9, 16, 13,20,22  (di(l:8))  =  db(l:8) 
pins  4,6,8,10,15,17,19,21  (do(l:8))  =  *489(1:8) 
Jif  8  are  req 

pin  2  (md)  =  +5v 

oin  11  (stb)  ~  gnd 

pin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  61) 
oin  24  (vcc)  =  t5v 
oin  12  (gnd)  =  gnd 

16  bit  outout  port  composed  of  two  8  bit  ports 
*497  is  for  low  order  byte 
*505  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 


signal 


?  i  f  8 


signal 


;  i  f  8 


signal 


Jif  8 


signal 


;if  8 


:  *497 

device:  intel  8212  8-bit  i/o  oort#  ic  95 
connect  ions: 

oins  3, 5-  7, 9,  16,  18,20,22  (di(l:8))  =  db(l:8) 
pins  4,6,8,10,15,17,19,21  (do(l:8))  =  *497(1:8) 
are  reg 

pin  2  (  m  d )  -  ♦  5  v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  a  wr-bar 

pin  13  Cds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  62) 
pin  24  ( v : C  )  a  +5v 
pin  12  (gnd)  a  qnd 

condition-mode  outout  interface  hardware  to  issue 
:  *505 

device:  intel  8212  8-bit  i/o  oort,  ic  96 
connec  t i ons : 

oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
pins  4,6,9,10,15,17,19,21  (do(l:8))  a  *505(1:8) 
are  req 

pin  2  (md)  =  *5v 

oin  11  (stb)  =  gnd 

oin  1  (dsl-bar)  a  wr-bar 

pin  13  (ds2)  a  out  .and.  (decode  a(0:7)  value  b3) 
pin  24  (vcc)  =  +  5v 
pin  12  (gnd)  a  qnd 

16  bit  outout  port  composed  of  two  8  bit  ports 
*513  is  for  low  order  by te 
*521  is  for  hiqh  order  byte 
condition-mode  outout  interface  hardware  to  issue 
:  *513 

device:  intel  8212  8-bit  i/o  oort,  ic  97 
connect i ons : 

Dins  3,5, 7,9, 16, 18,20,22  (di(l:8))  a  db ( 1 : 8 ) 
oins  4,6,9,10,15,17,19,21  (do(l:8))  a  *513(1:8) 
are  req 

Din  2  (md)  a  t5v 

oin  11  (stb)  =  qnd 

oin  1  (dsl-bar)  a  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  64) 
pin  24  (vcc)  =  *5v 
pin  12  (gnd)  =  gnd 

condition-mode  outout  interface  hardware  to  issue 
:  *521 

device:  intel  8212  8-bit  i/o  oort,  ic  98 
connec  t i ons : 

Dins  3,5, 7,9, 16, 19,20,22  (di(l:8))  a  db(l:8) 
oins  4,6,9,10,15,17,19,21  (do(J:8))  a  *521(1:8) 

are  reo 

oin  2  (md)  =  *5v 
oin  11  (stb)  a  gnd 
oin  1  (dsl-bar)  a 


wr-oar 


Din  13  (ds2)  a  out  .and.  (decode  a(0:7)  value  65) 
Din  29  (vcc)  =  +  5v 
Din  12  (qnd)  =  qnd 

condition  node  inDut  interface  hardware  to  sense 
signal  KEYCHA 

device:intel  8212  8  bit  i /o  oort»ic  99 
connect i ons : 

oins  3, 5, 7, 9,16, 18/20, 22(di (1:8))  =  KEYCHA(1:8) 
remainder  to 

qround 

Dins  9,6,8,10,15,17,19,21(do(l:8))  a  db(l:8) 
oin  2  (md)  a  gnd 
oin  11  ( st  o)  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  8) 

Din  13  (ds2)  =  ino  .and.  doin 

oin  29  a  t5v 

oin  12  a  gnd 

condition  node  inout  interface  hardware  to  sense 
signal  *EfCHA 

devicesintel  8212  8  bit  i /o  oort,ic  100 
connect i ons : 

Dins  3,5, 7,9, lb, 18,20, 22(di (9:16))  =  KEYCHA(9:16) 
remainder  to 

ground 

Dins  9,6,8, 10, 15, 17, 19,21 (do (9: 16))  a  db(9jl6) 
oin  2  (md)  a  gnd 

Din  11  (sto)  a  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  8) 
oin  13  (ds2)  a  ino  .and.  dbin 

oin  29  a  +  5v 

oin  12  a  gnd 

16  bit  out du t  Dort  conoosed  of  two  8  bit  ports 
*529  is  ♦or  low  order  byte 
*537  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal :  *529 

device:  intel  8212  8-bit  i/o  port,  ic  101 
connect i ons : 

Dins  3,5,7,9,16,18,20,22  (di(l:8))  a  db(l:8) 

Dins  9,6,9,10,15,17,19,21  ( do ( 1 : 8 ) )  a  *529(1:8) 

! if  8  are  req 

oin  2  (md)  a  *5v 

Din  11  (stb)  a  gnd 

pin  1  (dsl-bar)  a  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  66) 

oin  29  (vcc)  =  t5v 

oin  12  (gnd)  a  qnd 

condition-mode  outout  interface  hardware  to  issue 
signal :  *537 


device:  intel  8212  8-bit  i/o  oort*  ic  102 
connec t i on* : 

oi ns  5,5, 7,9, lb, 1 8,20,22  (di(l:8))  =  db(l:8) 
pins  4,6,8,10,15,17,19,21  (do(l:8))  =  *537(1:8) 

; i f  8  are  req 

pin  2  ( md )  a  fSv 

pin  11  (stb)  a  gnd 

pin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  a  out  .and.  (decode  a(0:7)  value  67) 
pin  24  (vCC )  =  +  5v 
pin  12  (god)  a  gnd 

condition  mode  input  interface  hardware  to  sense 
signal  <EfCHA 

device:intel  8212  8  bit  i /o  oort,ic  103 
connect i ons : 

pins  3,5, 7, 9,  16, 18,20,22(di (  l  :8) )  =  KEVCHfl(l:8) 
remainder  to 

ground 

pins  4,6,8,10,15,17,19,21(do(i:8))  =  db(l:8) 
oin  2  (md)  =  gnd 
pin  11  (st  o)  =  qnd 

pin  1  (dsl-bar)  a  .not.  (decode  a(0:7)  value  9) 
oin  13  (ds2)  -  i no  .and.  doin 
oin  24  a  fSv 
pin  12  a  gnd 

condition  mode  input  interface  hardware  to  sense 
siqnal  KEYCHA 

device:intel  8212  8  bit  i /o  oort»ic  104 
connec  t i ons  : 

oins  3,5,7,9,16,18,20,22(di (9:16))  =  KEYChA(9:16) 
remainder  to 

qround 

oins  4,6,8, 10, 15, 17, 19,21 (do(9: 16) )  =  db(9:lb) 
oin  2  (md)  =  qnd 
oin  11  ( st  o )  a  gnd 

pin  1  (dsl-bar)  =  .not.  (decode  a (8: 15)  value  9) 
oin  13  (ds?)  =  inp  .and.  doin 
oin  24  a  +  5v 
oin  12  a  gnd 

condition  mode  inout  interface  hardware  to  sense 
siqnal  KEYCHA 

devicetintel  8212  8  bit  i/o  oort,ic  105 
connect i ons: 

oins  3,5, 7,9,  16,  18,20, 22(di ( 1 :8)  )  =  KEYCHA(l:8) 
remainder  to 

ground 

oins  4,6,8,10,15,17,19,21(do(l:8))  a  dD(l:8) 
oin  2  (md)  a  gnd 


pin  11  ( st  o )  -  gnd 

Din  1  (dsl-bar)  s  .not.  (decod#  a(9:7)  value  10) 
oin  13  (ds2)  =  i no  .and.  doin 
Din  24  -  *5v 
oin  12  =  gnd 

condition  mode  inout  interface  hardware  to  sense 
sianal  KEYCHA 

devicetintel  82 12  8  oit  i/o  oort,ic  106 
connect  ions: 

oins  3,5, 7,9, 16, 18,20,22(di (9: 16))  =  KEYCHA(9;16) 
remainder  to 

qround 

oins  4,6,8,10,15,17,19,21(do(9:16))  =  db(9:l6) 

Din  2  (md)  =  qnd 
oin  11  (sto)  =  qnd 

oin  1  (dsl-bar)  s  .not.  (decode  a(8:15)  value  10) 
oin  13  (ds2)  2  inD  .and.  doin 
oin  24  -  t5v 
oin  12  =  qnd 

condition  node  input  interface  hardware  to  sense 
signal  ^ANPOS 

device:intel  8212  8  bit  i/o  oort.ic  107 
connect i ons : 

Dins  3,5,7,9,16, 18, 20, ?2(di (1:8))  =  MANP0S(l:8) 
remainder  to 

qround 

oins  4,6,8, 10, IS, 1 7, 19,21 (do( 1 :8) )  =  do(l:8) 
oin  2  (md)  =  qnd 
oin  11  (sto)  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(9:7)  value  11) 
Din  13  (ds2)  =  inD  .and.  doin 

oin  24  =  tqv 

oin  12  *  qnd 

condition  node  inout  interface  hardware  to  sense 
signal  ^ANPOS 

deviceiintel  8212  8  bit  i/o  oort,ic  108 
connect  ions: 

oins  3,5, 7,9, 16, 18,20,22(di (9: 16) )  s  MANP0S(9:16) 
remainder  to 

qround 

Dins  4,6,8, 10, 15, 17, 19, 21 (do(9: 16)  )  =  db(9:l&) 
oin  2  (md)  s  qnd 

oin  11  (sto)  =  gnd 

oin  l  (dsl-bar)  =  .not.  (decode  a(5:15)  value  11) 
oin  13  (ds2)  =  ino  .and.  doin 

Din  24  2  *5v 

oin  12  =  gnd 

condition  node  inout  interface  hardware  to  sense 


signal  KEYCHA 

device:intel  8212  8  bit  i /o  oort,ic  109 
connect i ons : 

Dins  3,5, 7,9, 16, 18,20,22(di  C 1 :3)  )  =  KEYCHA(1:8) 
remainder  to 

ground 

oins  4,6,8,10,15,17,19,21(do(l:8))  =  do(l:8) 
oin  2  (md)  -  gnd 
oi n  11  ( st  o )  =  qnd 

oin  1  Cdsl-bar)  =  .not.  (decode  a(0:7)  value  12) 
oin  13  Cds2)  =  ino  .and.  doin 
oin  24  -  +  5v 

oin  12  -  gnd 

condition  node  incut  interface  hardware  to  sense 
sianal  KEYCHA 

devicetintel  8212  8  bit  i/o  oort»ic  110 
connect i ons: 

oins  3,5, 7,9, lb, 18,20,22(di (9: 16) )  =  KEYCHA(9:16) 
remainder  to 

ground 

oins  4,6,8,  10, 15,  1  7,  19,21  (do(9t  16)  )  =  db(9:le>) 
oin  2  (md)  =  gnd 
oin  11  ( st  0 )  s  qnd 

oin  1  (dsl-bar)  s  .not,  (decode  a(8:15)  value  12) 
oin  13  (ds2)  *  ino  .and.  doin 
oin  24  s  *5v 
pin  12  =  qnd 

16  bit  outout  port  composed  of  two  8  bit  ports 
*545  is  for  low  order  byte 
*553  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal :  *545 

device*  intel  8212  8-bit  i/o  oort,  ic  111 
connec  t i ons : 

oins  3,5,7,9,16,13,20,2 2  (di(l:8))  =  db(l:8) 
oins  4,6,3,10,15,17,19,21  ( do ( 1 : 8 ) )  =  *545(1:8) 

; i f  8  are  req 

oin  2  (md)  -  f5v 

oin  11  (stb)  =  gnd 

pin  1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  -  out  .and.  (decode  a(0:7)  value  68) 
oin  24  (vcc)  =  +  5v 
pin  12  (and)  -  qnd 

condition-mode  outout  interface  hardware  to  issue 
s i qna 1 t  * 55 3 

device:  intel  8212  3-bit  i/o  oort,  ic  112 
connec  t i ons : 

oins  3,5,7,9,16,13,20,22  (di(l:8))  =  db(l:8) 

Dins  4,6,9,10,15,17,19,21  (do(l:8))  =  *553(1:8) 


J  i  f  8  are  req 

pin  2  (md)  =  +  5v 

pin  11  (stb)  =  gnd 

pin  1  (dsl-bar)  =  wr-oar 

pin  13  (ds2)  =  out  .and.  (decode  a ( 0 : 7 )  value  69) 
pin  24  (vcc)  =  +  5v 
pin  12  (gnd)  =  gnd 

condition  node  input  interface  hardware  to  sense 
signal  *EYCHA 

devicelintel  8212  8  Dit  i/o  oort,ic  113 
connect i ons : 

pins  3, 5, 7, 9, 16, 18,20,22(di ( 1 :8) )  =  KFYCHA(1;8) 
remainder  to 


ground 


oins  4,6,8, 10, 15, 1 7, 19, 21 (doC 1 :8) )  =  db(l:8) 
pin  2  (md)  =  gnd 
pin  11  (sto)  =  gnd 

pin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  13) 
pin  13  (ds2)  =  inp  .and.  dbin 
pin  24  =  f5v 
pin  12  =  gnd 
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